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COURSE DESCRIPTION 


ABSTRACT 


This course is designed for those personnel who are responsible for maintenance, 
consulting and training of the large system environmental software and hardware. 
Emphasis is on the operating system, compilers, basic hardware, associated selected 


support utilities, and other subjects required for developing System Support 
positions. 
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SYSTEM SUPPORT POSITION DESCRIPTION 


Provide cost-effective support in areas of vendor software, data communications, 
program development systems, capacity planning, quality control and database 
management. Technical services include consulting, training and support. The primary 
users of this group is the programming staff and operations. 


Other key areas: 

Operations training 

Operational support tools 

Operations standards (established with operations 
manager) 

Establish hardware/software event monitoring and 
trending 

Assist in development of programming standards 

Effective testing procedures 

Effective testing environment 

Develop and/or acquire program development tools 

Provide internal programmer training 

Establish system software implementation 
policies and procedures 

Establish system software testing procedures 

Maintain library of technical documents 

Distribution of technical documents 

Research an development of current and projected 
technical hardware/software/techniques 
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PREREQUISITES 
Prerequisites for this course are: 
Basic understanding of large system concepts and their programming 
languages: COBOL, ALGOL and WEL. Support utility experience including: 
CANDE, LOGANALYZER, DUMPALL, and FILEDATA. 


These requirements will have been met if the following courses have been 


completed: 
FUNDAMENTAL LARGE SYSTEM SKILLS (EP6190) 
ADVANCED LARGE SYSTEM SKILLS (EP6190) 
ALGOL (EP6314) | 
COBOL74 


(or acquired experience) 
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CLASS MATERIALS 


Title 
A Series System Architecture (VOL-2) 
System Software Support 
B5900 Reference Card 


Student Guide 
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Burroughs Form Number 


5014954 
5014434 
- 5012099 


(P1B) words 


Appendix 
A CODE file construction v~ 
B EVENT word layouts 
Cc File Information Block (FIB) words 
D Disk File Header (DFH) layout 
E. AQ system description 
F Program Information Block 
G Misc information 
H ATTABLEGEN 
| Review questions 
J Software compilation WFL job 
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COURSE OBJECTIVES 


Understand basic large system hardware. 

Understand Burroughs stack architecture. 

Understand code file structure. 

Understand processor operators. 

Analyze language constructs for correct and efficient code generation. 
Understand basic components of the operating system. 

Understand system software generation techniques. 

Understand a majority of the elements of a Program dump. 
Understand some of the items of a System dump. 


Ability to diagnose program failures through the use of a Program dump and a 
System dump. 
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SCHEDULE 


DAY 1 


Introduce the student with the instructor and vice versa. 

The design and content of the class is reviewed. 

Ar entrance exam is given to determine the need for review subjects. 
A hardware overview is given. | 


Universal 1/O is discussed. 
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DAY 2 


Data word formats are reviewed. 
Basic memory management is discussed. 
Arrays of ail types are covered. 


Actual Segment Descriptor (ASD) memory is introduced. 
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DAY 3 


Reference words are presented. 


Basic stack architecture is introduced. 


Processor registers are discussed. 


First program dumps are generated. 
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DAY 4 


Stack Linkage words are covered. 


Program initialization is discussed. 


Parameter passing is presented. 
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DAY 5 


DLIMPANALYZER is covered. 


Aclvanced stack architecture topics are introduced. 
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DAY 6 


Code file construction is covered. 
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DAY 7 


Reverse Polish Notation is reviewed. 
Machine operators are introduced. 


Samples of code generation are given. 
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DAY 8 


More processor operators are covered. 
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DAY 9 


Interrupts are covered. 


FIBs are discussed. 


System software generation is covered. 


PAGE 15 


Program failure analysis techniques are enhanced using program dumps. 


A A A SS 
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DAY 10 


A review of the homework assignment is done. 
An exit exam is given and reviewed. 


A Question and Answer period, if time permits. 
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HARDWARE OVERVIEW 


Copyright © 1986 Joseph & Cogan Associates, Inc. 
A Burroughs Company 


ST 5 SL 


A TT SS LS eS. SS nS seni Se SSS sss ssh SSA SSE eden ASSO sess SSSA 


PAGE 18 
MONOLITHIC SYSTEMS 


Resource sharing of memory, CPUs, and 10 processors (such as on B7800s and 
B7900s). 


Applications have access to all of: memory, CPUs, and !0 processors. 
ADVANTAGES 


Better utilization of processors. 


Reduced operational support/scheduling. 


DISADVANTAGES 


Memory limitation is 6 MB. 
is ADP 
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TIGHTLY COUPLED SYSTEMS 


Multiple processor configured under control of a single Master Control Program 
(MCP). 


Each local box has own dedicated Central Processor Unit (CPU), IO processor, and 
local memory. 


Communications between local boxes is accomplished through GLOBAL memory. 


ADVANTAGES 
Increased manor vy or entire combined system. but osof aS i is ble 


Multiple machine connectivity (i.e. B5900, B6900). 


Maintain single machine environment. \ 


DISADVANTAGES 


Reduced fault tolerance. 

Aciding or deleting subsystems requires Halt Load (H/L). 
Partitioning of subsystems. 

Crowding of GLOBAL memory. 


Overhead factor in support of Tightly Coupled System (TC). 
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TIGHTLY-COUPLED SYSTEM DIAGRAM 


GLOBAL 
MCP 


MEM 


LOCAL 
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LOOSELY-COUPLED SYSTEMS 


Communication between multiple independent systems. 
Each system has its own copy of the MCP. 
Systems run independently of each other. 
GLOBAL memory. 
Using GLOBAL memory as a mailbox between systems. 
Inter-System Control (ISC). 
High speed electronic interface between systems. 
DIRECT 10 interface now available. 
Remote Job Entry (RJE). 


mace” : 


Other Datacomm options. 


ADVANTAGES 


Reduced overhead as compared to tightly-coupled system. 


inclependent systems. 


DISADVANTAGES 


Potential split databases. 


Volume communication between systems may be slow. 
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LOOSELY-COUPLED SYSTEM DIAGRAM 


GLOBAL 
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u ae 
ENVIRONMENTAL MEMORY \ he rae 
One ee ? ¢ 


Partitioning memory into LOCAL areas called Address Spaces. 
Each address space is given an Address Space Number (ASN). 
Shared partition is visible to all LOCAL boxes. 

Application memory visibility is: 6 MB data, 6 MB code. 
Increased overall memory capacity. 


System must still be configured with SUBSYSTEMs. ae 


ADVANTAGES 


Increased overall memory capacity. 


Sharing of CPU and !0 processors. 
DISADVANTAGES 


Potential GLOBAL memory crowding. 


Sites must still partition application location (SUBSYSTEM). 
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B-7900 ee TYPE a IZATION 


CMSM ) 
_MEMORY 
SUBSYSTEM 
MODULE 


f 
48 MB EACH 
/ 


\MSM 
MEMORY 

SUBSYSTEM 

MODULE 
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PARTITIONING ENVIRONMENTAL MEMORY 


Partitioning is done in increments of "page's. 
A "page" is 128KW of memory. 


No more than eight (8) pages (1 MW) of memory may be included in any address 
space. 


Number of Shared pages will be the same for each Address Space. 
Size of each Local may be different, depending upon the machine. 
On an Ag: 


Assume that 16 pages are available 

Assume site specified Shared as three (3) pages 

MCP would create two (2) Locals with five (5) pages each (8 pages 
max - 3 pages global = 5) — 

MCP would create a third Local with three (3) pages (16 pages total - 
3 pages for Shared - 2 locals with 5 pages each = 3) 


On an A185: 


The site can specify the size of the Shared component 
Can also specify the size of each Local component 
To do this, must use a configuration file 
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B7900 CENR AND DENR 


B7900 computers have additional registers in the processors called: 
CENR Code Environment Number Register 
DENR Data Environment Number Register 

Each xENR can address up to 1 MW of memory. 

Makes total memory visible at one time 2 MW. 


Configuration like the following is possible: 


Shared Local (Units are in Pages) 
Code 4 2 
Data 3 4 


Above yields a total of 13 pages or around 1.6 MW. 


Limitation is that no Shared component plus any Local component can exceed eight 


pages. 
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ENVIRONMENTAL MEMORY DIAGRAM 


MEMORY 


ASN O //////> Shared 

A A A 

/ 7: / 
TIIISLIIITTTTSST SS / SISISITSTTITTS SSS 
/ ASN 1 / ASN 3 / 
/ ASN 2 / / 
ip / / 
V V V 
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BURROUGHS NETWORK ARCHITECTURE 


Burroughs Network Architecture (BNA) 
communicate between systems. 


is the 


environmental software required to 


(GLOBAL connected systems, ISC, other datacomm) 


NETWORK services. 
HOST services. 
File transfer. 
HOST to HOST. 
HOST through HOST to HOST. 
File OPEN. 
Virtual terminal. 
Task execution. 
HOST mix display and control. 
Least cost and alternate route routing. 


Transport media: 


1 PR TS AAAI SPEEA SA PA ne PENSE BNP EAT OTM PSE DS A SETS OTC SO MOET YA OA SLES ASRS PEDIC! SEE SONS RTT OS PEO AIDA ak EEN A SAH 


ae meg cpen fu mm ofhn op 
NT EY : 


ISC, DATACOMM, GLOBAL. 
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INTER-SYSTEM CONTROL (hv) 


Inter-System Control (ISC) is a high speed channel electronic interface system to 
system. 


Connection is point to point (each connection requires a path). 


c 
o : 
Up to ANG ports per each connecting unit (HUB). 


( Depending on which type HUB. 
Most DLP and PCC systems can connect. 


Limited to only BURROUGHS systems. 


DIRECT 10 interface available (BNA not required). 
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a 
REMIOTE JOB ENTRY 


Remote Job Entry (RJE) provides limited file transfer and connectivity without 
requiring BNA. 


File transfer. 


Virtual terminals. 
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LARGE SYSTEMS PROGRESSION 


The following pages are intended to show the changes that have occurred in 
Burroughs Large Systems hardware over the years. 


It is also hoped that those new to Burroughs equipment will become familiar with a 
little of Burroughs’ history. 
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B-5500 


Monolithic machine. 

“Floating” I/O channels could connect to any I/O device. 
Limited memory of 32 KW. 

First virtual memory machine, circa 1960. 


Discrete components (transistors, resistors, etc.) and diode-register logic as 
opposed to chips. 


B-6700 C.14647 


- | 
Piegene 


Chip architecture version of B-5500. 
Multiplexor now has hard |/O channels (one per device controller). 
Faster. 


Has memory capacity of one million words, although early style core memory units 
were too large to physically assemble units close enough for 1 MW. 


Evolved to planar core memory which could complete the 1 MW memory. 


revert RNa nr ase vt em cPLA NTR ar OPENER 
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B-6800 


Introduction of "Global" memory and the concepts of SUBSYSTEMs, "tightly-coupled", 
and "loosely-coupled" machines. 


Integrated Circuit (IC) memory available on this mainframe (Model II) 16K chips. 


Fixing design problems or changing design requires wiring or board changes. This 
is complicated, expensive, and very time-consuming. 


MP X 
PANEL 
T CH & CH 90 | Bao | 


oo 
Ce A CO 


TD830 TO&30 


LEGEND: 
MDP: MAINTENANCE DIAGNOSTIC PROCESSOR 
CHn: 1/0 CHANNEL 
MPX: MULTIPLEXOR; 1/0 PROCESSOR 


Cc: CENTRAL CONTROL; TRAFFIC COP FOR 1/0 CHANNELS 
TO TRANSFER DATA TO MPX 
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Same processor as B-6800. 


IC memory on all models. 


Multiplexor becomes MLIP (Message Level Interface Processor). 


Universal 1/0 


(UIO) devices are added. These are PROM driven, so any logic 


changes usually require only PROM changes. 


Footprint for 
architecture. 


AMAL A AEST TTS 


I/O boxes approximately 1/8 of hard I/O boxes from previous 
Up to 64 I/O channels fit where 10 used to. 


MAINTENANCE 


TEST BUS 


CONSOLE 
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B-5900 


Processor is now "soft" microcode driven. 

card Loyel Mambeviared 
16K chips on B-5930 (upright). (us dnp level) 
64K chips on B-5920 (low boy). 
UIO is same as B-6900. 


Still only one million words of memory (6.2 Mb). 


Entry level system to Large Systems. 


LEGEND: 


MIP: MAINTENANCE INTERFACE PROCESSOR 
MC: MAINTENANCE CARD 
MP: MAINTENANCE PROCESSOR 
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B-7900 


B-7000 entry into UIO. 


B-7800 processor with memory addressing capabilities greater than one million 
words (CENR and DENR), plus some instruction enhancements. 


Total addressable memory 96Mb. 

B-5900 is Maintenance Processor with capability of Attached Processor online. 
B-7800 IOM becomes HDU with 8Mb bandpass per port (versus 1 to 2 Mb IOM). 
Still memory limitations, although new limit is 1 Mw Code plus 1 MW Data. 


64K memory chips. 


T 
E 
s 
T 
B 
U 
Ss 


FLOPPIES 


LEGEND: 


MEX: MAINTENANCE EXCHANGE 

CPM: CENTRAL PROCESSOR MODULE 

MSM: MEMORY SUBSYSTEM MODULE 

TOSM: INPUT OUTPUT SUBSYSTEM MODULE 


AP/AMP: B5S900 


HDU: HOST DATA UNIT 
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AQ 


B-6000 entry into microcode systems. 


New logic: current mode (emitter-coupled logic) plus a pipeline processor 
with three stages. 


UIO same as before. 
Memory capability now greater than one million words. 
f* ; c 
Memory released \ad Ba Mb, but capable off 96 Mb. > 
Se jaa Gobel - ar tor ” 
64K memory chips. 
ASD capable without hardware upgrade. 


4 9,8? 


TEST BUS 
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O 
"A" series entry level system to large systems. K4 ic fr 
/ 
UIO same as before. Q 
ye 
Capable of greater than one million words of memory. p ¢ 


Max memory is 48 Mb. 
256K memory chips. 
in-built winchester disks. “¢ #4 


Has monolithic 2-by capability (two processors can see, share, and address all of 
memory. 


ASD capable with hardware upgrade. 


ET1100 


BASE OR PROC (OPTIONAL) 


UIO DLPS 


LEGEND: 
UIP: USER INTERFACE PROCESSOR 


SMD: SYSTEM MAINTENANCE DISK 
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Similar to Ag. 
Has 256K memory chips. 
Has improved arithmetic capabilities. 


Monolithic 2-by machine. 


ASD capable without hardware upgrade. 
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only one naoren cnsb ole” 


Largest current system in Burroughs line. 

Monolithic B7000 requestor type architecture. 

Same UIO as B7900. 

New processor and memory with purgeless cache. 

Current maximum memory, as documented by marketing, is 96 MB. 


256K memory chips. 3S 


ASD capable with hardware upgrade. 5 rut 


ET 1100 ET 2000 


ET 2000 


MAINT STA 


LEGEND: 


SMP: SYSTEM MAINTENANCE PROCESSOR 
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UNIVERSAL INPUT/OUTPUT 
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UlIO PHILOSOPHY 


Universal I/O was originally developed to reduce the amount of work done by the 
mainframe and offload it to a separate I/O subsystem. 


The intent of UIO is that any given I/O is generic to the MCP. In actual fact, this 
is not so. A card reader can't be read backwards, for example. However, much 
of the work of older "hard" I/Os has now been offloaded to a "smart" I/O 
subsystem. 
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MAINFRAME INTERFACE 


All Universal 1/O (UIO) operations originate on the mainframe and connect to the 
UI Subsystem through an 1/O processor. 


I/O processors are known as HDUs (Host Data Unit) [B-7900 and A15] or MLIPs 
(Message Level Interface Processor). 


The output from these I/O processors is called a Message Level Interface (MLI) 
which is an I/O protocol for UIO ports. 
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S 
/O BASES oe cat 


An I/O Base is nothing more than a rack of circuit boards with a common 
backplane. 


Certain cards must be in a base. These include: 

o Terminator Cards (TC) at both ends. 

o Base Control Card (BCC). 

o Maintenance Card (MC) to the left of the right-hand Terminator Card. 
Other cards may optionally appear in a base. They are: 

o Distribution Cards (DC). 

o Path Selection Modules (PSM). 

o Line Expansion Modules (LEM). 


o Data Link Processors (DLP). 


A ole 
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TERMINATOR CARD 


A Terminator Card (TC) provides electrical signal termination for the common bus 
(backplane) which all cards in the base connect to. 


There must be one at each end of the bus. 


BASE CONTROL CARD 


A Base Control Card (BCC) contains information about which host owns’ which 
cards (DLPs). This allows two host systems to FREE and ACQUIRE different 
devices. 


At Halt/Load time, the BCC can also inform the MCP what devices reside in this 
base. 


MAINTENANCE CARD 


Provides a path for mdintenance to the base. This maintenance can be used to 
test cards in the base. 


Provides clocking for the base. 
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DISTRIBUTION CARD 


A Distribution Card (DC) provides the interface between the base and the host. 
A DC communicates with the host through an MLI. 
A DC communicates with the base through the DLI (backplane bus). 


There will be one DC for each host which has an MLI into this base. 


/ PATH SELECTION MODULE 


| = controller 


a ee If more than one host talks to the same base (i.e. more than one DC in a base), a 
Path Selection Module (PSM) needs to be inserted into the base. 


The PSM provides a "traffic cop" function to insure that both mainframes do not 
attempt to use the backplane of the base or the BCC simultaneously. 


LINE EXPANSION MODULE 


A Line expansion Module (LEM) enables a host to be connected to more bases by 
expanding one MLI to up to seven MLIs. 


Even though a LEM physically resides in a base, it accepts only electrical power 
from the base. It does not use the backplane for communication with other 
elements in the base. 


LEMs are used when a port needs to control more than one DC (eight DLPs). By 
feeding an MLI (port) into an LEM, the output from the LEM can be input to from 
two to seven DCs which yields control over sixteen to fifty-six DLPs. 
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DATA LINK PROCESSOR 


Data Link Processors (DLP) are device-dependent logic cards that provide the 
interface between the host(s) and the peripheral device(s). 


A DLP can consist of two, three, or more cards, depending upon the device type. 


Some of the current DLPs are: 


CR1 Card Reader 
HT 1 206, 207, 659, 677 Disk Pack 
MT 1 PE Tape 
MT2 PE/GCR Tape 
ODT 1 Operator Display Terminal 
o—- SL SP 1 Line Support Processor (Datacom) 
we ( TP2 Buffered Printer 1200/2000 Ipm 
——-<-NSP3 Datacom Network Support Processor 


cad -_ has & Akp 
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VIO EXANMIPLE 


A typical path for data in the UIO environment. 


M 

A 

| 

N ////// 

F /DATA/ 

R SIT/// 

A MEM HDU 

M M 

E L 
| 

U 

| 

0 

B 

A 

S 

E 

Pp 

E 

R 

| 

P I//1T/ 

H L /DATA/ 

E 1/0 CABLE IIIT 

R CONTROLLER DISK DRIVE 

A I . 

L 
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FROM DLP TO DISK PACK 


The following diagram is typical of what is outboard from a disk DLP (without an 
exchange). It shows a 2 X 8 configuration. 


IILITLIS SST 
WAIHI 
CONTROLLER VIIIIITT 
IMAIIITT 
; JIS 11 


/ / 
/ ////1/ 


//// 
DISK PACK SITILISITATT SLATS T 
DRIVE CONTROLLER ////// 


A DPE ERTS CE tna 


urrouwghs Compa 
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FROM DLP TO DISK PACK 


The following diagram shows a typical 4 X 16 disk pack configuration with 
exchange. 


L//// AO ///// 
DLP Al DLP 
nanee A2 
CONTROLLER [~-A3 CONTROLLER 
BO 
—- Bl 
TLL T B2 ///// 
DLP CONTROLLER }—B3 CONTROLLER DLP 
DPDC 
LLILTLLLLTLTT LITT LTT LALIT TL TATA LATTA TTT LTT TTT 
/ / 
/ DRIVES / DRIVES 
J 
//// 
/ 
/1114 
/ 
(1/1 
/ 
1/11 
//// 
a 
C111 
J 
//// 
/ 
rs 
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FROM DLP TO TAPE DRIVE 


The following example shows a typical GCR/PE configuration. 


| DLP yi ue [evr pute} ve | yuit| oe | 
—— / / ‘4 / 
/ yf 


4 / 
/ / / / 
//// 
Ff ///- 
//// 
REMOTE TCU TCU TCU REMOTE TCU 
/ 
i 


/ 
/ DRIVES 
/ 


DRIVES 


LEGEND: 
DLP: DATA LINK PROCESSOR (U10) 
TCU: TAPE CONTROL UNIT 

NOTE: 


EXCHANGE CAPABILITIES ARE BUILT INTO THE TCU'S 


eae an inne rmeteinaene nta etna An totes epee 
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DATA WORD FORMATS 
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GENERAL INFORMATION 


Words are the fundamental units of data. 


TAG INFORMATION FIELD 


TAG FIELD 


Provides general.interpretation of data contained in word information field. 
The Tag: 

Bit 51 of the TAG is only valid on E-MODE systems. 

Bits 50:3 are the only bits currently valid. 

Current value range: 0-7. 

Even tags serve primarily as computation arguments. 

Odd tags primarily serve as reference arguments or control structures. 


Bit 48 is considered the "Memory Protect" bit; Most operators will get an 
error if they try to update a word where bit 48 is on. 


INFORMATION FIELD 


Main portion of the word. 

Interpretation depends on TAG value. 

Bits 47:48. 

Meaning of the word may also depend on context and different bit values. 


Bits may wrap from O to 47 if operators require. 
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SINGLE 


REAL. 


PRECISION OPERANDS 


TAG 


46:01 


45:01 


44:06 


38:39 


0 


Sign of the MANTISSA (0 = positive , 1 = negative) 
Sign of the EXPONENT (0 = positive , 1 = negative) 
EXPONENT field. 


MANTISSA field. 


MANTISSA is the magnitude of the number before scaling. 


EXPONENT is the power of eight to which the MANTISSA is scaled. 


EN 
Tenemeeeimnceny 


Formula for calculation of decimal value: 


(MS )(M)* (8 ** (ES )(E)) 


Limits on the range of values for a REAL values are: 


1A a A RB NN 


Absolute value may not exceed 4.31359146674 @ 68 
Except for zero, absolute value may not be less than 


8.75811540203 @ -47 
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TAG 

46:01 
45:01 
44:06 


38:39 
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INTEGER 


Sign of the MANTISSA (0 = positive , 1 = negative) 
Sign of the EXPONENT (Always 0) 
EXPONENT field (Always 0). 


MANTISSA field. 


MANTISSA is the magnitude of the number before scaling. 


Formula for calculation of decimal value: 


(MS )(M ) 


INTEGER is the same as a REAL except that the EXPONENT is always 0. 


The compilers force the exponent O by generating integerizing operators. 


The hardware can not distinguish between a REAL or a INTEGER. 


The absolute value for an INTEGER may never exceed: 


| Ak eta FR ERAS APPEASE ERD SRCRATEGA AS RRRESOSE GPU FOV EPPS EADS Et re. PUNRn At EPRS s t nESTESIT SPASSS I-P SSF ATCCTESO ESOESPE!SBCAS STEP TRS PRE E75 TES PRO FEO ASG 


549,755,813,887 
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TAG BOOLEAN Via 


TAG 0 © yk u 
AN 
00:01 BOOLEAN logical value (1 = TRUE, 0 = FALSE) Q” - 

The hardware uses bit O for conditional branching. 

Ail other bits are ignored. 

The hardware can not distinguish between a REAL, INTEGER and a BOOLEAN. 

Other bits may be on or off, but they are not used in condition checking. 


Many logical operations operate on all bits in parallel. 
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ONE--QUESTION PROBE 


If REALs, INTEGERs, and BOOLEANSs ali have the same tag of zero, how does the 
processor know what type of data it's working with and what to do with it? 


e 
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DOUBLE PRECISION OPERANDS 
MOST SIGNIFICANT PART —-- MSP 


TAG DOUBLE (MSP) 


TAG 2 

46:01 Sign of the MANTISSA (0 = positive , 1 = negative) 
45:01 Sign of the EXPONENT (0°= positive , 1 = negative) 
44:06 Low order 6 bits of the EXPONENT. 

38:39 The integer portion of the MANTISSA. 


MANTISSA is the magnitude of the number before scaling. 


EXPONENT is the power of eight to which the MANTISSA is scaled. 
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LEAST SIGNIFICANT PART -- LSP 


TAG DOUBLE (LSP) 


TAG 
44:06 The high order 9 bits of the EXPONENT. 
38:39 The fractional portion of the MANTISSA. 


MANTISSA is the magnitude of the number before scaling. 


EXPONENT is the power of eight to which the MANTISSA is scaled. 


The actual value of the EXPONENT field is: 
EXPONENT:= 0 
& MSP. [05:44:06] 
& LSP.[14:47:09] 


$ 


The maximum absolute value for a DOUBLE operand is: 
1.94882938205028079124469 « ( 10 ** 29603 ) 

The minimum absolute value, except for zero, is: 
1.938545857 1375858335564 *« ( 10 ** -28581 ) 
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UNINITIALIZED OPERANDS 


TAG UNINITIALIZED OPERANDS 


TAG 6 
47:48 All bits 0 
Can be interpreted by the hardware as a 48 bit vector. 


Also used by the compilers for initial setting for some variables, most notably 


ARRAY REFERENCEs and POINTERs. goa nN 
ain St oe 

This operand is primarily used as a forrwar control word. . bt 47 wom 
bpd desesateed moms ats m Bee 


ES RE AT AS TTT SAR NRE PATE AAO RDS TSN SOPCUAWER TCE EP AE NPR hrc Pr hier emai cnt ns Pes Tenterfield hers WA PRA SY A AN SPP 
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TAG 4 


47:48 All bits 0 


This word is used for various software needs: 
(i.e. ON ANYFAULT, ON RESTART, and INTERRUPT). 


This word is reserved for applications in future levels of architecture. 


SE AS IPTC 1 TSFSCSCSSOS SUI ACDE AEP PPP SP OSRESATS A SSE SAESSSRE] SP mnt foweeiochnne mfp ah rai frre Par a eae Se nt Ss UA Cea ASME TONSA REREAD AIA I 
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ALGOL 


REAL 
INTEGER 
INTEGER 
BOOLEAN 
DOUBLE 
EVENT 
POINTER 
ARRAY 


REFERENCE 


Note: 


COBOL68 


COMP-4 
COMP-1 
COMP 
N/A 
COMP-5 
EVENT 
N/A 


N/A 


LANGUAGE EQUIVALENTS 


COBOL74 


REAL (*) 
N/A 
BINARY 
N/A 


DOUBLE (*) 


EVENT 
N/A 


N/A 


TYPE 


Single 
Single 
Single 
Single 
Double 
Double 
Uninit 


Uninit 


Prec 
Prec 
Prec 
Prec 
Prec 
Prec 
Var 


Var 


TA 


fon) DANN OOO Dd 


Starred (*) COBOL74 items are new as of Release 3.6. 
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PROGRAM CODE WORDS 


Variable length operator sequences are stored in arrays of Program Code Words. 


Contains six 8-bit syllables, numbered zero to five (O - 5). 


TAG PROGRAM CODE WORDS 


TAG 3 

47:08 Code syllable O 
39:08 Code syllable 1 
31:08 Code syllable 2 
23:08 Code syllable 3 
15:08 Code syllable 4 
07:08 Code syllable 5 


Ne ee en ee eiermnnmemnenammnisediontemmmmunniamenanmamentammnancanenencamenaeteasnememendinmmmnnateemnemietaiameeee eepemeamermetenemememnemete ccna anetedl 
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MEMIORY MANAGEMENT 


p00 eC ROE ES-ES SSeS SS SSP SS AS 5 S}seenh :AAE NR NUNN TS SE AE SS A EE TREAT, MRSS TOIT 
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OVERVIEW 


Virtual memory management technique that is designed to satisfy memory needs of 
a program quickly and efficiently. 


Memory is organized into two major components: 


IN-USE AREAS 
AVAILABLE AREAS 


Each memory area is preceded and followed by link words which describe the 
contents and status of that area. ; 


A DESCRIPTOR references the portion of memory containing +hat-—eontains- the data 
or code. 


Cee en nn nn nn a eeeerimmommminenerinemnenmmt acme pene sncancuuaed-antomntmcecmemmns oncom” redeem eeu mei em ce 
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IN-USE AREAS 


These areas have two general types: 
SAVE 
NON-SAVE 


SAVIE 


SAVE ares are required to be resident in memory from time they are allocated to 
the time they are de-allocated. 


The reasons for SAVE areas are varied: 4 {0 
VO buffer. z om darel? 
DIRECT arrays. — 4° pt 
Critical MCP or application code. 

Critical MCP structures: 
TASK 
STACK 


FILE INFORMATION .BLOCK (FIB) 
Critical application structures. 


Most SAVE areas must remain at their. assigned memory location for extended 
periods of time. Bree 


NON-SAVE  OVZ@CATAOCL E 


Most NON-SAVE memory ares can be overlayed to disk by the MCP. 
These areas are automatically re-allocated to memory when they are needed. 


Some NON-SAVE memory areas must be resident in memory but are allowed to 
move -- considered to be "sticky" memory. (RESIDENT areas: DCALGOL). 


RRSP SSPE ASPIRED RE SEEAeNenen raetmttnE SHEERS RG ER OM 
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MEMORY LINKS tre eee. Aanah 


LINKA 


LINKB 


LINKC 


ACTUAL DATA 


LINKZ 


Contains address of original descriptor (MOM). 
Contains length of area. Tn werds 

Contains type of area (ODDBALLF). 

Contains the STACK number who owns the MOM. 
Code location where data was allocated. 


Will vary in length for most occurrances. 


Similar to LINKA for backwards memory chaining. 
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MEMIORY ORGANIZATION 


Inciscriminate mixing of SAVE and OVERLAYABLE areas would cause inefficient 
use of memory space such as in the case of checkerboarding. 


Clustering of SAVE and NON-SAVE areas helps avoid the checkerboarding 


problem. 


MEMORY ORGANI ZATION 


SAVE NON-SAVE 


Copyright © 1986 Joseph & Cogan Associates, Inc. 


Burroughs Company 


Aah i 9 SRR NRATERRSRETNCD CUTEST 1 Acehnese Sena ASRS YI MED AREER nce rerinsh ARACEAE WE etopi rvgthrn hitaat 


PAGE 70 


AVAILABLE AREAS D \quks ws frat 
Pm back 


Organized in two lists to attempt to allocate SAVE ares into low memory and 
NON-SAVE into high memory. 


SAVE LIST 


Is a list of all available memory areas that could be used as SAVE memory. 


NON-SAVE LIST 


Is a list of all available memory areas that could be used as NON-SAVE memory. 


AVAILABLE LIST STRUCTURES 


The SAVE and NON-SAVE lists are ordered by size where the smallest piece of 
memory is first. 


If there are duplicate areas with the same size (i.e. three areas of 25 words), 
"side lists" are linked into the primary area in the list. 


These "side lists" help reduce the number of duplicate entries the MCP has to scan 
through when looking for memory. 


MCP/AS uses a MOD function to jump to a location in the list and then proceed 
from forward, thereby skipping areas of memory it knows to be too small. 
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DATA DESCRIPTORS 


The structures that reference actual memory areas (bounded by memory links). 


ORIGINAL DESCRIPTORS 


There is only one original descriptor (MOM) for an area of memory. 


Update access to MOM _ descriptors .is_ restricted since _ pertinent 
information would be lost if they were modified. 


MOM descriptors control allocation, de-allocation, and overlay of memory 
segments. 


COPY DESCRIPTORS 


Primarily is a duplicate descriptor. 
May point to a memory segment (same as MOM) if resident. 
May point to the MOM descriptor (if not resident: ABSENT). 


Built by the compiler when request to access an ORIGINAL data segment in a 
different SIZE (WORDS, EBCDIC, HEX). 


Built where processor operators require updates to a descriptor. 


Note: A discussion of ASD memory will be included later. 
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OVERLAY 


Memory requests for an area size which can not be satisfied from the available 
list cause the system to overlay memory which is non-save, in-use areas. 


Each task is assigned an overlay file. 


Each MOM descriptor has space reserved in this file the first time it is made 
present. 


Overlay space is retained until memory segment is deallocated. 
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DEMAND OVERLAY 


Requests for forced overlay occur only when there is not enough contiguous 
memory available for the size of the request. 


From a rotating point in memory (called the LEFTOFF pointer), in-use areas are 
moved or overlayed until there is enough memory to satisfy the requested size. 


Movement of data requires search and update of MOM and COPY descriptors. 


IN-USE { 10 WORDS) 
IN-USE ( 60 WORDS) 
IN-USE ( 40 woRDS) 
AVAIL (100 WORDS) 
IN-USE ( 30 WORDS) 
IN-USE ( SO WORDS) 


IN-USE ( 60 WORDS) 


lf the request was for 300 words of memory: 


All of the above IN-USE areas will be moved or overlayed to satisfy the 
request. 


The last area will be split, the remainder added to the appropriate 
AVAILABLE list. 


Majority of applications are written in COBOL. 


COBOL programs tend to be coded with many small data segments (average area 
may be as small as 60 words). 


Large data requests could cause a significant memory management burden. 
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WORKING SET 


WORKING SET is defined as the amount of physical memory required to run a task 
effectively. 


WSSHERIFF 


Internal MCP process that forces overlays to occur at a predefined rate. 


eootrmsimees ty 


This approach is to prevent bursts of overlays by causing areas not used often to \ 
be overlayed. = 


Increased processor overhead to support WORKING SET memory management. 
Overlays may occur more often than in DEMAND overlay. 


WSSHERIFF is initiated when OVERLAY GOAL is greater than O. 
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MENMIORY CONTROLS 


NAME FACTOR 
OVERLAY GOAL 1 ¢ fle Se 
Ss 
AVAILMIN 2 
en Pa ot 
FACTOR 9 ~~ 3 MC 
MEMORY PRIORITY 4 


OVERLAY GOAL 


Percent of OVERLAYABLE memory that is attempted to be overlayed per minute. 


AVAILMIIN 


Active programs are suspended in priority order if the actual AVAILABLE memory 
falls below the AVAILMIN percentage of actual memory. 


The attempt is to slow down the requests for memory and OVERLAY the 
OWVERLAYABLE areas of the suspended task. 


SAVE areas are not OVERLAYED. 


AA a eI CE REOPERATION PESTA PERCE SSCs nahn ae TSR GLNB HARRELSON 
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FACTOR 


This is the percentage of actual memory the scheduling mechanism assumes it has. 


Lower than 100% may cause more tasks to become scheduled with potentially less 
memory management overhead. 


Higher than 100% may cause tasks to be executed when they normally should have 
been scheduled. 


Higher FACTOR settings may increase overhead to support memory management. 


MEMORY PRIORITY 


Attempt to add priority as a criteria to the OVERLAY decision. 


Lower priority tasks may tend to have more OVERLAY activity under WORKING SET 
than higher priority tasks. 


Time to find overlay areas to meet a given size may be longer under MEMORY 
PRIORITY control. 


ae) A Re SE ERS NITE IE SSS SS SSS STR TVS PE PETTERS ER FD PPE STS A IAA HV NOMADIC HRSA fo Shinn ESOT TERE ACE 
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SWAPPER 


This facility allows TIME-SLICING to service users in a_ resource’ sharing 
environment. 


A portion of memory is reserved for SWAPPER to manage. 
The bounds for all data segments for a given task are contiguous. 


Tasks are overlayed to a file call SYSTEM/SWAPDISK when it no longer requires 
the processor or has exceeded a pre- determined time slice. 


A few 10's will occur to overlay or make a program active reducing the number of 
10's required to make independent data segments resident. 


Programs will conform to the normal DEMAND overlay scheme if not enough 
memory is available within is limited scope. 


Tasks requiring little processor utilization are favored. 


SWAPPER is not available on ASD machines (MCP/AS). 


111 SO RESON 29 AARNE SERS OEPSASESE URS VS MEE SSS SES APPA a SPR PS E-PASS TOTTI Stn TRUST rc SOR PS RAT 
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DESCRIPTORS 
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DATA SEGMENT DESCRIPTORS 


Data descriptor is the word type that describes data segments. 


A virtual data segment is an array of elements where an element of the array is a 
single word, a double word pair, or a sub-word character requiring 4 or 8 bits. 


TAG DATA DESCRIPTOR FORMAT 
PR L L t L A 
$1 
5° PEPREPPRBEED 


TAG 5 
47:01 present bit (O = absent, 1 = present). 
46:01 Copy bit (0 = Molt 1 = copy). 
45:01 Indexed bit (0 = un-indexed, 1 = indexed). 
44:01 Paged bit (0 = non-pages, 1 = paged). 
43:01 Read-only bit (0 = read/write, 1 = read-only). 
42:03 The type of array element (SIZEF). 

O = Single Precision 

1 = Double Precision 

2 = Hex —~ % we ovik$ 

4 = EBCDIC 
39:20 The number of elements in the array (LENGTHF). 
19:20 If the descriptor is: 


Present MOM: Address in memory of the array 
Absent MOM: See alternate description of 19:20 
Present Copy: Address in memory of the array 
Absent Copy: Address in memory of MOM 


For Absent MOMs, there is a second description of bits 19:20 on the next page. 


1 A ASR CETERA ESSE ESSN SSSR TES PPO APPS aT eS PRA War SSSR tp fy ni ih MS TAS PS SPB APES TNS SEA ANSE re Pr EMEA eA A ASOT evn 
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ABSENT MOM DESCRIPTORS 


For non-present (i.e. absent) MOM Descriptors, the following is the specification 
for bits [19:20]: 


IF 
19:01 (OLAYFILEF) is 1, the data has been overlayed and bits 18:19 are the 
relative record number in the program's overlay file which contains the actual data 
ELSE 
IF 
18:01 (CODEFILEF) is 1, this is an original descriptor for read-only and code 
segments and bits 17:18 are the relative record number in the code file of the 
code segment or read- only array data 
ELSE 
this is a "virgin" MOM and bits 17:18 must be evaluated as follows: 


lf [17:00 = 0, then bits [16:17] indicate: 


O = NON-SAVE array 

1 = SAVE array 

2 = EVENT array . 

>2 = ARRAY information table (AIT) 


lf [17:07] = 1, then bits [16:17] indicate: 


DIRECT array 
DOPE vector 
OWN array information table (OAT) 


—_ 
1 | 
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LANGUAGE REPRESENTATION 


ORIGINAL DESCRIPTOR 


ALGOL COBOL68 
REAL ARRAY Ol ITEM COMP. 
O1 ITEM COMP-1. 


EBCDIC ARRAY Ol ITEM DISPLAY 


HEX ARRAY O1 ITEM COMP~2. 


COBOL74 


O1 ITEM BINARY. 


N/A 


. Ol ITEM DISPLAY. 


N/A 
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COPY DESCRIPTOR 


ALGOL 

EBCDIC ARRAY EA[O:179]; 
HEX ARRAY HA[O] = EA; 
ARRAY A[O] = EA; 
EA 

TAG 5 

COPY BIT ) 

ELEMENT SIZE 4 (EBCDIC) 

LENGTH 180 

ADDRESS O (Absent MOM never used) 
HA 

TAG 5 

COPY BIT 1 

ELEMENT SIZE : 2 (HEX) 

LENGTH 360 

ADDRESS EA (COPY points .to MOM) 
A TAG 5 

COPY BIT ] 

ELEMENT SIZE O (WORD array) 

LENGTH 30 

ADDRESS EA (COPY points to MOM) 
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O1 EA. 


EA 


HA 


EE A: 


03 ITEM-2 
03 HA 
03 ITEM-4 
03 A 
03 ITEM-6 


TAG 

COPY BIT 
ELEMENT_S!ZE 
LENGTH 
ADDRESS 


TAG 

COPY BIT 
ELEMENT SIZE 
LENGTH 
ADDRESS 


TAG 

COPY BIT 
ELEMENT _SIZE 
LENGTH 
ADDRESS 
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COBOL74 
PIC X (002). 
COMP PIC X (003). 
PIC X(002). 
BINARY PIC 9(011). 
Pic X(168). 


5 

O (MOM descriptor) 
k (EBCDIC) 
0 
0 


(MOM absent never used) 


2 (HEX) 


EA (COPY points to MOM) 


mw 
rPoo-wW 


(COPY points to MOM) 
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ONE-QUESTION PROBE 


In the example on the prior page, each of the descriptors describe the entire 
record. However, the individual items are much smaller than that. For example, 
the data item HA starts at the third EBCDIC character in the record and is three 
Hex characters in length, yet the descriptor for HA indicates a length of 360 Hex 
characters. How does the system know what piece(s) of the record to use and 
what to ignore? 
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MULTI-DIMENSIONAL ARRAYS 


The ORIGINAL descriptor (sometimes called a DOPE) will point to a vector of 
ORIGINAL descriptors (sometimes called a DOPE vector). 


This will continue until the last vector has ORIGINAL descriptors which actually 
point to the data segment(s). 


Each of these vectors of ORIGINAL descriptors will be SAVE memory and will 
have the length of the next dimension. 
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MULTI-DIMENSIONAL ARRAY DIAGRAM 


ARRAY A [0:2,0:5]; 


A [0,1] := 1113 
A [1,3] := 222; 
A [2,5] := 3333 


Ww Ww Ww wn 


NI RO DO 
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PAGED ARRAYS 


PAGED arrays (sometimes called SEGMENTED) divide large data segments into 
multiple data segments. 


The structure is the same as a MULTI-DIMENSIONAL array except that the PAGED 
bit = 1. 


The size of the individual data segments is 256 words. 
Access to elements of the PAGED array is transparent to the program. 


Automatic segmentation occurs by default if the array is not declared LONG and is 
greater than 1024 words. 


The upper bound which causes truncation can be changed by an ODT command. 


rn er ee rem anmneraeamaniemmmnemnimmnetacnaenncseaumtnateasnte aatene aadmesante part srraeceam-ermecranmnareue eget” ri tee a 
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PAGED ARRAY DIAGRAM 


ARRAY A [0:1279]; 


A [256] := 256; 
A [512] := 512; 
A [768] := 768; 


0 1 254 255 
768 
A 
3 
Oo. 1 254 255 
P 11280 2 512 
PG 
1 
Oo.) 1 254 255 


Burroughs Company 
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INDEXED DATA DESCRIPTORS 


Reference an individual element of a data segment. 
Must be a COPY. 


Can not be PAGED. 
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TAG 


47:01 


46:01 


45:01 


44:01 


43:01 


42:03 


3():20 


19:20 


DOO RO NAO ASR CRANE POSNER EAS PS RAPIST SPREADS SPE PSS FRR (OR PME tse aR EPS TICASETY NaN PE MET SE nsf SY APTI EE PRCT 


cD 
wr ot O 
CG my ee 
5 
Present bit (O = absent, 1 = present). 
Copy bit (1 = COPY) 
Indexed bit (1 = indexed). 
Paged bit (0 = non-pages) 
Read-only bit (0.= read/write, 1 = read-only ). 
The type of array element (SIZEF). 
0 = Single Precision INDEXED SINGLE DD. 
1 = Double Precision INDEXED DOUBLE DD. : 
: oPrpnronad nan yert : ( bTs 
index ( was Wary \O doy bar aan sr 4 x 
Apefare  Khoge oP tw ea 
Address wow » 
ee i‘. 
b, [s 
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INDEXED CHARACTER DESCRIPTOR 


TAG INDEXED CHARACTER DATA DESCRIPTOR 


PR 
47 


TAG 5 
47:01 Present bit (0 = absent, 1 = present). 
46:01 Copy bit (1 = COPY). 
45:01 Indexed bit (1 = indexed). 
44:01 Paged bit (0 = non-pages). 
43:01 Read-only bit (O = read/write, 1 = read-only). 
42:03 The type of array element (SIZEF). 
2 = HEX 
4 = EBCDIC 
39:04 Character Index in SIZEF units. 
35:16 WORD index (regardless of SIZEF). 
19:20 Address 
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LAN(SUAGE REPRESENTATIONS 


ARRAY A [0:29]; 


ALGOL 


POINTER 
POINTER (A, 0) 
POINTER (A, 4) 
POINTER (A) 
POINTER (A, 8) 


COBOL68 


COBOL74 


Copyright © 1986 Joseph & Cogan Associates, Inc. 


rroughs Company 


hf A RR FCS 5 SS AS SSE A TEASED STS Ret PS A “AERP SERS PA SRSA SSP AR A ESERIES AEP A S/R APR POPES 


TAG 3 

47:01 Present bit (0 = absent, 1 = present). 
46:01 Copy bit (0 = original, 1 = copy). 

42:03 SIZEF must be zero (i.e. WORDs). 

39:07 Must be zero 

32:13 The number of code words in the segment. 
19:20 Present: 
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Memory address of the base word of the data segment. 


Absent Copy: 


Address of the original descriptor. 


lf the descriptor is an Absent MOM, bit 


take on new meaning: 


18:01 If 1, the code segment has never been touched; 
if 0, the code segment has been touched. 


17:18 Address of the code segment in the code file. 
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SOF’ 


[WARE CONTROL WORD -- SCW 


A BLOCK (in ALGOL) is defined as a BEGIN...END pair with declarations. 


The SCW is used by the system to terminate a BLOCK which may have present 
ORIGINAL descriptors or other structures which reference entities outside of this 
stack. 


BLOCKEXIT is the MCP software procedure which returns the data segments to the 
appropriate available memory list upon attempt to EXIT a BLOCK. 


The SCW has a mask which designates the type of memory areas which may need 
to be returned. 
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SOFTWARE CONTROL WORD (SCW) 


; H 

a7 
° 
26 


Mask field defining element types in BLOCK. 


Non local GO TO. 

DIRECT array. 

FAULT (e.g. ON ANYFAULT). 
INTERRUPT. 

FILE. 

Multi-dimensional array(s). 


Single-dimensional array(s). 
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09:10 Count of dependent processes which have this block as its CRITICAL BLOCK. 


De A AA RDS A AEESSARGA A 
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ACTUAL SEGMENT DESCRIPTORS 


Copyright © 1986 Joseph & Cogan Associates, /nc. 
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ACTUAL SEGMENT DESCRIPTOR MEIVIORY 


ASD memory is part of the MCP/AS (Advanced System) product. 
Available only on Burroughs A Series computers. 
AS and A15 require hardware modifications to run MCP/AS. 
AY and A10 do not require hardware modifications to run MCP/AS. 
Acivantages: . 
Expands monolithic memory size to 4 GW (2**32 = 24 g-bytes). 
SUBSYSTEM concept goes away. 
SWAPPER goes away. 
Reduces stack searching. 
All descriptors point to the ASD table. 
Reduced MCP and user complexity. 
Addition of new ocatieeeavite features. 
Disadvantages: 
Additional reference for each memory access. 
Hardware upgrade on some machines. 


Major benefit will be to users with memory problems. 
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ASD TABLE 


Table size (i.e. nmumber of entries) settable at Cold Start time and via the new 
ODT command ASD. 


Each entry in the ASD table is four words long and consists of pieces of 
information about memory such as: 


o whether the array is present in memory or not 
o its addresses, both actual and virtual 

o its length 

o whether it's been changed (the "dirty" bit) 

o stack number of MOM descriptor 


o if it's a dope vector or not 
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ASD VERSUS NON-ASD DESCRIPTORS 


Descriptors in the non-ASD environment are of only one type: Actual. 
In an ASD environment, there are two types of descriptors: 
Virtual (what used to be Actual on non-ASD) 


Actual (the four-word ASD table entry) 


Non-ASD Actual descriptors take the following basic form: 


Non-ASD Actual Descriptor 


Control 


[51:04] 
[47:08] 
[39:20] 
[19:20] 


Length 


Address 


Tag of 5 
Control 
Length 
Address 


ASD Virtual descriptors take the following basic form: 


ASD Virtual Descriptor 


[51:04] 
[47:08] 
[39:20] 
[19:20] 


Length 


ASD Index 


Tag of 5 
Control 
Length 
ASD Index 
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NON-ASD DESCRIPTORS 


Non-ASD Descriptors are handled as follows: 


Non-ASD Stack with Non-Present Descriptors 


Copy 


MOM Overlay File 


Non-ASD Stack with Present Descriptors 


Copy 


ee Array in Memory 
MOM 
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ASD DESCRIPTORS 


ASD Descriptors are handled as follows: 
ASD Stack with Non-Present Descriptors 


ASD Table 


copy 
MOM ASD Entry Overlay File 


ASD Stack with Present Descriptors 


ASD Table 


Copy 
MOM ASD Entry | Array in Memory 


occu YC al te REIS pen RECERCAT VEC JS SPARTA PER CE IST eens hp cin er DT SPAS STS het here ree AA EP TUNE Sch PTCA ES) CSO 


Copyright © 1986 Joseph & Cogan Associates, Ine. 


Burroughs Company 


PAGE 102 


REFERENCE WORDS 
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ADDRESS COUPLES 


A pair of indices (Lex Level, Offset) that reference a word in the current 
addressing environment. 


Lex Level represents a LEXICAL region which is in the current addressing 
environment. 


Offset is a the number of words from an Activation Record in the current 
addressing environment. 


Examples: 


(2,4) 
(4, 22) 


Address Couples are generated in one of two forms: 


FIXED FENCED 


The Lex level and Offset are fixed as to their maximum ranges. 


VARIABLE FENCE 


The Lex level and Offset ranges depend on the current lex Level at the time of 
the execution of the reference. 


ep 29 1 CE OETA RESTORED SAPNA PRESSES SSCS 1D PP Ro SP SPOOR, AS 7 SE cE BPE SP OOTP PASTOR STO CFE DARE PAS POOL 2 SP ERSTE 
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INDIRECT REFERENCE WORD -- IRW 


rp * g? 
ra @ 

\ px ? 
TAG INDIRECT REFERENCE WORD { I'RW) 


46:01 Bit = O 


[ ~ 


13:14 Lex level and Offset fields (variable fence) 


The least significant bit of the Lex Level starts at bit 13 and continues to the 
right up to the variable fence. 


(eas 
The most significant bit of the Offset starts at bit 0 and continues to the left up 
to the variable fence. 


But where's the fence? 


Number of bits valid in LEX level depends on current Lex Level at the time of the 
execution of the reference. 


“ee kato m2 te eterna Aerated festa unre un At Et i tr ES FSSA EAP AR re si rar irre nd hSDN 
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FLOATING FENCE 


Problem: 
One field [13:14] that contains two subfields: Lex Level and Offset. 
Both fields can vary in size. 
How does one determine where the "fence" (or dividing line) is? 
Solution: 
Take the currently-running Lex Level (not what is being referenced). 
Determine how many bits are needed to represent that Lex Level. 
That's how big the lex level field is. 
The remaining bits are for the Offset. 
Table for Determining Where the ''Fence'" |s 


LL LEX BITS OFFSET BITS MAX OFFSET 


0 1 13 8191 
1 1 13 8191 
2 2 12 ~~... ~h095 
3 2 12 4095 
4 3 11 2047 
5 3 11 2047 
6 3 1] 2047 
7 3 11 2047 
8 4 10 1023 
) 4 10 1023 
10 L 10 1023 
11 h 10 1023 
12 L 10 1023 
13 h 10 1023 
1h 4 10 1023 
15 h 10 1023 
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ONE--QUESTION PROBE 


What problems or limitations are inherent in the above "floating fence" concept? 
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IRW EXAMPLE 


TAG INDIRECT REFERENCE WORD (IRW) 


EXAMPLE 


Assume LL = 3. 


The above IRW 1005 is actually a reference to (2,5). 


eect a SR SAE Dy RAR emer nm cement -imethoere--ne tree be RAP 37 PE 
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NORIMIAL INDIRECT REFERENCE WORD -- NIRW 


, 
Valid only on E~MODE machines. é aot 
Fixed fence. 

LEX level range 0-15. 

INDEX range always 0-1023, without regard to Lex Level. 


Easier to read in dumps, too. 


18:01 Bit = O denotes NIRW. 
15:04 Fixed LEX level field. 
11:12 Fixed INDEX field. 


ih SR SSSR ESOS RESP SAGE SIP SG EAP YO 7A MPESSPEP E-SERIES =D PSS VPS DRS hcheen AAZT TOES into rr den SA SAS sD ATER OREM 
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NIRV EXAINIPLE 


TAG NORMAL INDIRECT REFERENCE WORD (NIRW) 
EXAMPLE 


° 
27 O7 
° 
37 17 o9 
! ° 
; o8 
2 ° ° 5 


The above NIRW 2005 is actually a reference to (2,5). 


E-MODE machines convert IRWs to NIRWs. 


A A AC NCE as etc TS SS SSPE AVAPRO NASA SATS SAS MAS 
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STUFFED INDIRECT REFERENCE WORD -- SIRW 


Like a NIRW because it references a location in an addressing environment. 


Points to the same location regardiess of the state of the current 
addressing environment. 


Can reference anywhere in memory. 


lexical 


Can reference an item even if it's not within the scope of the stack’s addressing 


environment. 


E-MODE SIRW 


TAS STUFFED INDIRECT REFERENCE WORD (SIRW} 


47:12 The Stack Number of the STACK containing the referenced location. 


35:16 The DISPLACEMENT from the base of the stack to the base of the 


Activation Record. 


18:1 Bit = 1 denotes SIRW. 


12:13 The OFFSET from the base of the activation record to the referenced 


location. 


750 ae ae areata REIL teat at ts meter A PE ARPES DEE SPP RTE 
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NON E-MODE SIRW 


45:10 The Stack Number of the STACK containing the referenced location. 


46:01 Bit = 1 denotes SIRW. 
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SIRW EXAMPLE 


Given that an SIRW contains the following information: 
47:12 Stack Number 02D. 
35:16 Displacement of O1FE. 
12:13 Offset of 007. 


The following diagram illustrates the SIRW mechanism: 


REFERENCED WORD ——> —— 


OFFSET OF 007 
(STEP 3) 


ACTIVATION RCW 
RECORD | 
MSCW ——— 


DISPLACEMENT OF OIFE 
(STEP 2) 


STACK NUMBER 02D 
(STEP 1) 
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PROGRAM CONTROL WORD -- PCW 


Points to a code syllable in a code segment. 


Normally used for procedure entry. 


E-MODE 


TAG PROGRAM CONTROL WORD (PCW) 


47:12 SNR value when MPCW (Make PCW) is executed. 

35:03 The syllable index into the code word. 
PROGRAM SYLLABLE INDEX (PSI). 

32:13 The word index into the code segment. 


PROGRAM WORD INDEX (PWI). 


19:01 CONTROL STATE (1=CONTROL state, O=NORMAL state) 
CONTROL STATE : no external interrupts. rmusp Atelaretior 
NORMAL STATE : external interrupts allowed. 
18:01 Must be zero. 
17:04 The Lexical Level for the new activation record. 
13:01 The SEGMENT DICTIONARY LEX LEVEL (SDLL). 
D[oJ: Bit = 0 (MCP code segments). 
D[1]: Bit = 1 (USER code segment). 
12:13 The SEGMENT DICTIONARY INDEX (SDI). 


Code segment descriptor is at address D[SDLL] + SDI or as an 
address couple: (SDLL,SDI). 
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NON E-NMODE 
45:10 SNR value when MPCW executed. 
18:05 The lex level for the new activation record. 
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BASIC STACK ARCHITECTURE 


AC NE RTA LAYERS TEMAS PAs cS RSS SEPP OP SASSER EX SR EESTI STG PI SOCOM RRA HPCE AA PA RSE SOS en ASS CS RGRAY STERNER rr ACSA SSS SERE SSSSSPED sR 
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SAVE data segment. 


Maintains a “last in first out" (LIFO) structure. 


Contains program data or references to data (data could be code). 


Defines program environments. 


Physical top of STACK (LOSR’ [Limit of Stack Register ]). 


Logical top of STACK (S Register). 


There are multiple PSEUDO STACK structures. 


FILE INFORMATION BLOCKS. 


PROCESS INFORMATION BLOCKS. 


TAGS ///////// 
/ 
V 


6 
5 


wm Ww Ww Ww 


TOP OF STACK 


<////// 
ih, 
TT, WORDS OF MEMORY 
Th, 
<i 


<////// 
t 
<////// 
/ 
<////// 


BOTTOM OF STACK 
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PROCESS STACK 


Each execution of a code file has its own PROCESS stack. 
Can be indirectly shared by other PROCESS stacks. 
Data unique to this run of the program is kept in the Process Stack. 


EXPRESSION STACK is the last active portion of the STACK where expressions are 
evaluated. 


Commonly (and erroneously) called the D[2] stack. 
At any instant in time, shows the exact state of a program, including: 


~ all procedures that have been entered 
- the value(s) of all variables 
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CODE SEGMENT DICTIONARY 


Executable code is contained in segments defined by descriptors located in the 
CODE SEGMENT DICTIONARY, sometimes called the SEGMENT DICTIONARY. 


May contain descriptors to READ-ONLY arrays. 
May contain SINGLE- or DOUBLE-precision operands. 


Items directly or indirectly in the CODE SEGMENT DICTIONARY are never modified 
by an application program. 


Each application has at least one Segment Dictionary. 
A segment of code may only be referenced by one CODE SEGMENT DICTIONARY. 


Multiple PROCESS stacks can share CODE SEGMENT DICTIONARIES and _its 
associated code. 


= 0S PE RI TOT DESERTS PAPERS PP A SS PAP STUY SSE tht HR SNRSRSD RASS ft Ue NPAC AoA A SITE 
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STATEMENTS, COMPOUND STATEMENTS, AND BLOCKS 


STATEMENT 


A STATEMENT is a simple statement without a BEGIN...END pair surrounding it. 


X := 3 READ (INFILE,14, INBUF) 


COMPOUND STATEMENT 


Zero of more STATEMENTs bounded by ae BEGIN...END pair and having no 
declarations. 


BEGIN BEGIN BEGIN 
END X 3= 3; Y := 23 
END THRU 10 DO; i 
END 


BLOC 


A COMPOUND STATEMENT with declarations. 
BEGIN BEGIN BEGIN 
REAL X; REAL A,B,C; DEFINE NEWSEGMENT = #; 
END A := 2; END 
Bo := 3; 
END 


Every block gets its own code segment. 
Every block gets its own Segment Descriptor in the Segment Dictionary. 


These facts are noted in the compile listing with both an Address Couple for the 
Segment Descriptor and in the Code File Address. 
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INTERNAL PROCESSOR REGISTERS 


Each processor contains one set of special purpose registers. 


Some registers contain memory addresses for program environments (ENVIRONMENT 
registers). 


Other registers pertinent to execution and efficient indirect access to data. 


Most of these registers contain a physical memory address which is use as a base 
for indirect access to data or data segment references. 


Maintained as an array of registers. 
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ENVIRONMENT REGISTERS 


Acildressing environments of the executing code stream consists of a set of local 
addressing spaces contained within stacks. 


Referred to as ACTIVATION RECORDS, LEXICAL REGIONS, or DISPLAY REGISTERS. 
Each region is given an environment number. 

The environments range from O to 15 (older hardware can go higher). 

These environments are designated as DO - D15 or D[O] - D[15]. 


The current addressing environments is a linked list of LEXICAL REGIONS. 
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Memory address of the most global ACTIVATION RECORD (MCP stack). 


D1 


Primarily the memory address of the CODE SEGMENT DICTIONARY ACTIVATION 
record. 


May point to MCP LEXICAL regions. 
May address other pseudo STACK structures as LEXICAL regions. 
FILE INFORMATION BLOCK. 


PROGRAM INFORMATION BLOCK. 


Primarily memory address of applications: outer block LEXICAL region. 


May also point to MCP nested: LEXICAL regions. 


oe 
D3 - D15 ; eee 
“re 
be ee, 
The current hardware supports these LEXICAL regions. ieee 


Older hardware may address environments up to D[31]. 


Current hardware reference these Environments. indirectly through ACTIVATION 
record chaining. 


/ 
vA 


we 
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A, B, X, AND Y REGISTERS 


The A and B registers are considered to be the two “top of stack registers’. 


Whenever two operands are operated on, the values, or their addresses must be in 
the two top of stack registers. 


The X and Y registers are considered extensions of the A and B registers, 
respectively. 


For example, if a double variable is put on the top of the stack, the MSP 
may go in the A or B register and the LSP would go in the respective 
extension register. If the MSP was put in the A register, the LSP would be 
put in the X register. 


AROIFF AND BROFF REGISTERS 


The AROFF and BROFF registers indicate whether the A and B registers: contain 
valid data, respectively. 


When information is placed in a register, the appropriate xROFF register is set. 
When the data in the register is invalidated, such as by a STOD operator, the 
xROFF register is reset. 
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LL REGISTER 


The lexical level of the topmost ACTIVATION record in the current addressing 
environment. 


DLL REGISTER = /. a | 


The memory address of the base of the topmost ACTIVATION record. 


Head of the lexical chain. 


F REGISTER 


Defines the head of the historical chain (the most current activation record). fh 


S REGISTER 


Memory address of: the last valid item in the topmost ACTIVATION record. 


Logical top of stack. 


BOTTOM OF STACK REGISTER -- BOSR 


Memory address of the base of the STACK. 


LIMIT OF STACK REGISTER -- LOSR 


Memory address of the bottom element in the stack as defined by its entry in the 
STACK VECTOR ARRAY. 
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STACK NUMBER REGISTER -- SNR 


Inclex into the STACK VECTOR ARRAY. 


Used by the hardware to index into the STACK VECTOR ARRAY. 


PROGRAM SYLLABLE INDEX -- PSI 


Current code syllable pointer. 


PROGRAM WORD INDEX -- PWI 


Current word index of the active segment descriptor. 


SEGMENT DICTIONARY INDEX -- SDI . 


Index into the segment dictionary of the code's descriptor. 


PROGRAM BASE REGISTER -- PBR 


Memory address of the first word of the current code segment. 
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MICP STACK 


Contains data, indirect data references and code segment references for the MCP. 
Outer BLOCK of the MCP. 

Sometimes referred to as the D[0] stack. 

This environment is visible to all STACKs present in the system. 

The highest in the hierarchy of data addressing environments. 

Contains some physical structures for the hardware. 


The DLO] register points near the base of the MCP stack. 
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STACK VECTOR ARRAY 


Vector (array) of active and available STACK entries in the system. 


Each word in the Stack Vector may be a data descriptor which may point to a 
stack. 


Maximum number of stacks depends on the total memory available (current maximum 
4096). 


The STACK VECTOR DESCRIPTOR (SVD) is declared in the MCP addressing 
environment. 


SVD is located at D [0] + 2 (i.e. Address Couple (0,2)). 


MCP 


<- STACKS -=> 


oe 


STACK VECTOR ARRAY 4095 
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PROCEDURE ENTRY 


Entering a procedure is a four-step process that the compiler must generate code 


for: 
MKST (Insert a Mark Stack Control Word) 
NAMC (Generate an IRW to a PCW) 
<optional parameter placement> 
ENTR (Actually enter the procedure) 


We will omit the discussion of parameter passing until 
later. 


Before executing the ENTR operator, the top of the stack 
has: 


An incomplete MSCW. 
An IRW to the PCW of the procedure to be entered. 


When the ENTR operator is executed: 


The IRW is turned into an RCW. 

The MSCW is completed and marked as "entered". 

D Registers are updated as per the PCW.. 

The processor starts executing where the PCW dictated. 
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PROCEDURE EXIT 


A procedure is exited when the EXIT or RETN operator is 
executed. (The RETN operator will be discussed later.) 


When an EXIT operator is executed: 


The S register is set to F - l. 

The F register is set to point to the prior MSCW by 
following the History Link in the current MSCW. 

The RCW is evaluated to determine, among other’ things, 
where to start executing code. 

D registers are updated by following the Lex Level 
Links from the new MSCW. 
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COBOL PROCEDURE ENTRY AND EXIT 


As COBOL is not a block structured language, it does not 
handle procedure entry and exit (i.e. PERFORMs) the same way 
that block structured languages do. 


When the COBOL compiler encounters a PERFORM statement, it 
determines where the exit point is for the PERFORM. 


A "serial number" is assigned to every possible exit point. 


Entering a procedure (doing the PERFORM) consists of the 
compiler placing on top of the stack a PCW of where to come 
back to and then the "serial number'' of the exit point. A 
"go to'' is done to enter the procedure. 


At every exit point, code exists to see if the serial number 
left on top of the stack matches the serial number for the 
exit point you are at. 


If the 'serial numbers" don't match, the program falls 
through to the next statement. 


if the "serial numbers'' do match, the PCW left on the’ stack 
is used to do a '"'go to! back to the PERFORM. 


The concept of a BAD GO TO does not exist in COBOL. 
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PROGRAM EXAMPLES 


BEGIN 
REAL 
R 
»R2 


INTEGER 
| 


DOUBLE 
D 
ARRAY 
AR [0:9] 


DOUBLE ARRAY 
DA [0:9] 


EBCDIC ARRAY 
EA [0:9] 


HEX ARRAY 
HA [0:9] 


POINTER 
P_UNINITIALIZED 
»P_INITIALIZED 


e 


ARRAY REFERENCE 
AR_REF_UNINITIALIZED 


P_INITIALIZED := EA [9]; 


eee ces ree aes > 


END OF PROGRAM. 


(2,2) 
(2, 3) 


(2,4) 


(2,5) 


(2,6) 


(2,7) 


(2,9) 


(2, A) 


(2,B) 
(2,C) 


(2,D) 
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BEGIN 
REAL 
R (2,2) 
ARRAY 
A [0:9] (2,3) 
EBCDIC ARRAY 
AR [OJ] =A (2,4) 
POINTER 
GP (2,5) 
PROCEDURE P; (2,6) 
BEGIN 
REAL 
R2 (3,2) 
ARRAY 
A2 [0:9] (3, 3) 
POINTER 
,PA2 (3,5) 


PA := POINTER (A [2]) + 33 
PA2:= POINTER (A2 [2]) + 33 


— ee om oe oe oe es > 
END; 
P; 
END. 
..endf i xed 
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ARRAY 
A [0:9] 


EBCDIC ARRAY 
AR [OJ] = A 


POINTER 
GP 


’ 
PROCEDURE P; 
BEGIN 
REAL 

R2 


ARRAY 
A2 [0:9] 


POINTER 
PA 
»PA2 


PROCEDURE P2; 
BEGIN 
ARRAY A3 [0:9]; 
POINTER PA3; 


PA := POINTER (A [2]) + 33 
PA2:= POINTER (A2 [2]) + 3; 
PA3:= POINTER (A3 [2]) + 33 
= ne oe we o> ow ow eo ow ow oe > 
END; 
P2; 
END; 


P; 
END OF PROGRAM. 


(2,2) 


(2,3) 


(2,4) 


(2,5) 
(2,6) 


(3,2) 
(3, 3) 
(3,4) 
(3,5) 


(3,6) 


(4,2) 
(4, 3) 
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BEGIN 
REAL 
R (2,2) 
ARRAY 
EBCDIC ARRAY 
AR [O] = A (2,4) 
POINTER 
GP (2,5) 
PROCEDURE GPPROC; &) (2,6) 
BEGIN 
REAL R2; (3,2) 
Se ceeesee 3 
yy END; 
. PROCEDURE P; (2,7) 
BEGIN 
REAL 
R2 (3,2) 
ARRAY 
A2 [0:9] (3,3) 
POINTER 
PA (3,4) 
»PA2 | (3,5) 
PROCEDURE P2; (3,6) 
BEGIN 
ARRAY A3 [0:9]; xe (4, 2) 
POINTER | PA3; ~ (4, 3) 
PA := POINTER (A [2]) + 33 


PA2:= POINTER (A2 [2]) + 3; 
PA3:= POINTER (A3 [2]) + 3; 
GPPROC;'. 


: END; 
| R2 := 753 


ae qotorn oi st 


END OF PROGRAM. 


2 A NC SSS 
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STACK LINKAGE WORDS 
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MARK STACK CONTROL WORD -- MSCW 


To place information in the stack as to where prior MSCWs are as well as what 
"D" register should point here. 


E-IMODE A- Sores 


TAG MARK STACK CONTROL WORD (MSCW) 


TAG ~—si BB 
47:12 STACK of previous Lex Level's Activation Record. 


35:16 The DISPLACEMENT field. 


18:01 The ENTERED bit (0 = not entered, 1 = entered). 
17:04 The LEX Level which this activation record runs. 
13:14 The HISTORY between this MSCW and the prior MSCW. 


Bits 47:12 and 35:16 are collectively called the “Lex Level Linkage”. They point to 
the prior Lex Level's Activation Record. For example, if we're running at Lex 
Level 4, the Lex Level Linkage would point to the Activation Record for Lex Level 
3. This may or may not be in the same stack. 


Bits 13:14 are called the “History Linkage". They point to the prior Activation 
Record's MSCW in this stack without regard to Lex Levels. 
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NON E-MODE 


TAG MARK STACK CONTROL WORD 


49 
TAG 3 
87:01 Previous Lex Level’s Activation Record is in @ 
DIFFERENT STACK. 
46:01 The entered hit (O = not entered, 1 * entered). 
45:10 STACK number of prior Lex Level’s Activation 
Record. 
35:16 DISPLACEMENT from BOSR to MSCW of Prior Lex Level. 
19:01 Position in cperator flow to restart: 
Oo = restart from beginning, 1 * restart from next 
Syllable. 
18:05 The LEX level which the activation record runs. 
13:14 The HISTORY LINK. 
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MSCW LEX LEVEL VERSUS HISTORY LINKAGES 


LEX LEVEL LINKAGE 


Tne Stack Number/Disptacement fields together constitute the 


Lex Level Linkage. 


The Lax Level Linkage 
D register should point. 


identifies where the prior Lex Level’s 


For example, if D [3] points at the current MSCW, the Lex 
Level Linkage can be used to liocate the MSCW where D [2] 
points. This may or may not be in the same stack. 
HISTORY LINKAGE 
The History Link field points to the prior MS CW in this 
stack. 
No consideration is given as to Lex Levels for the History 
Linkage. 
WHY THE TWO 
The two linkages are mainly used for procedure exit. 
The History Linkage is used to know how far to cut back the 


stack when the program exits a procedure. 


The Lex Level Linkage 
environment to what 


Sane a Re tar RENT EN NN mee OSES VP DOP SPA A SP SPSS SYS 


is used to re-establish the addressing 
it was prior to entering the procedure. 
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LEX LEVEL VERSUS HISTORY LINK DIAGRAM 


D[3] >| MSCW 


D[3] > | MSCW 


SEG DICT PROCESS 


Lexical Links are shown on the left sides of the stacks. 


History Links are shown on the right sides of the stacks. 


rroughs Company 
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RETURN CONTROL WORD -- RCW 


To tell the hardware where to continue executing code when this procedure is 
exited. 


Note that an RCW tells where to go -- not necessarilly where we came from. 
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E-MODE RCW 


EX LL , SDif 
47 15 07 
PLP el ol ol of a ‘ibe 


RETURN CONTROL WORD 


TAG 3 
47:01 External sign flip-flop. 
46:01 Overfiow flip-flop. A\e sae 
OPE cg 
45:01 True/false flip-flop. 
44:01 Float flip-flop. 
43:01 Restart indicator (0 = initial, 1 = restart state) 
41:01 Arms BLOCKEXIT interrupt from EXIT or RETN 
QO = disarmed, 1 = armed 
40:02 Optimization of EXIT/RETN. 
35:03 The syllable code stream pointer. 
PROGRAM SYLLABLE INDEX (PSI). 
32:13 Word index into the code segment. PROGRAM WORD 
INDEX (PWI). 
19:01 CONTROL STATE 
1 = CONTROL STATE: no external interrupts, 
O = NORMAL STATE: external interrupts allowed. 
18:01 Must be zero. 
17:04 The lexical level for the new activation record. 
13:01 The SEGMENT DICTIONARY LEX LEVEL (SDLL). 
0: D [0] (MCP code segment) 
1: D [1] (USER code segment) 
12:13 The SEGMENT DICTIONARY INDEX (SDI). 


Points to the code segment descriptor. 
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NON E-MODE 


The following bits are not valid: 
43:01 RS 
41:01 BE 


40:02 EO 


The following bits are not included: 


42:01 True/false occupied flip-flop. 
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ACTIVATION RECORD 


A combination of MSCW and RCW that is generated as a result of entering a 
procedure. 


An Activation Record indicates things about this procedure such as: 


A: A a TL LH PR 


The Lex Level (and hence what D register points at it) the procedure runs at. 


The location of the prior Lex Level's Activation Record (the Lex Level 
Linkage). 


The location of the prior MSCW in this stack (the History Linkage). 


Where to go when this procedure is EXITed (provided by the RCW). 
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lig a 


ns 
L TOP OR STACK CONTROL WORD -- TOSCW ees 
= i Qe 


to 
SN, go Dc 


Goes at th¢ bottony of a Process stack when the stack is inactive. ae a 
/ f- 


It allows the processor to set up some of its registers such as S and F when it 
goes to execute this stack. as 


When the Process stack is active, the processor id (a number from zero to eight) 
is in the bottom of the stack. 


E-MODE 


TOP OF STACK CONTROL WORD 


SH 
27 
Hoel al all cl alcatel cc ala 


TAG 3 
35:16 Logical Stack Height (SH). S := BOSR + SH. 
13:14 S$ to F Displacement (SF). F := S - SF. 
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NON E-MODE 
The following fields have been deleted: 
47:01 ES 
46:01 OF 
45:01 TF 
44:01 FL 
42:01 TFOF 
41:01 C:Compare flip-flop. 
19:01 cS 
18:05 LL 
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The above deleted fields can be obtained from the other STACK linkage words. 
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PROGRAM INITIALIZATION 
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BASE OF STACK 


Contains the fixed portion of the stack built by the MCP. 
Contains a descriptor to the program's TASKFILE. 


Contains a descriptor to the array’ information table (AIT) used _ for 
multi-dimensioned arrays. 


Contains a descriptor to the OWN information table (OIT) used for arrays declared 
OWN. 


Dummy MSCW. 


Contains overlay file information pointers. 
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FIRST EXECUTABLE PCW -- FEP 


PCW located in the segment dictionary which represents the first syllable of 
execution in the program. 


Normally points to the stack building code of the outer block. 


Lacation of FEP is pointed to by the first record of the code file usually called 
SEGMENT ZERO or BLOCK ZERO. 


Normally ALGOL location is at (1,2). 


Floats for COBOL (after last variable entered in the segment dictionary). 
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TASK INITIALIZATION PROCESS 


1. MCP searches for the code file. 

2. MCP validates code file kind. 

3. SEGMENT ZERO of code file is read into memory. 
4. SEGMENT DICTIONARY size determined. 

5. STACK number selected for SEGMENT DICTIONARY. 
6. Space acquired for the SEGMENT DICTIONARY. 

7. STACK VECTOR ARRAY descriptor updated. 


8. Compiler-built SEGMENT DICTIONARY read from code file to memory starting 
at MSCW slot after fixed BASE. 


9. STACK number selected for PROCESS stack. 
10. Fixed BASE built. 


11. Dummy MSCW, RCW built called DUMMY RUN (used as platform for 
execution of NORMALEO,J). 


12. MSCW RCW pair built return set to execute NORMALEOJ. 
13. MSCW RCW spare built to be used as user RCW exit. 
14. MSCW RCW pair built for entry into NORMALBOJ. 

15. Rest of stack filled with 4"°BADBADBADBAD". 


16. STACK inserted into queue for tasks waiting for the processor (READYQ) in 
priority order. 


17. Stack selected by processor. 

18. EXITS into NORMALBO\. te ie ree. 
19. NORMALBOJ performs remaining initialization tasks. i T. wo 

20. NORMALBO, installs FEP into USER RCW previously built. | 

21. NORMALBOJ exits into user code. 

22. Upon completion of user task, the processor EXITS into NORMALEOJ. 


23. NORMALEOJ performs task termination duties. 
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PARAMETERS 
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PARAMETER PASSING 


Parameters are a formalized way of giving selected information to and receiving 
selected information back from a procedure. 


Parameters to a procedure appear first in the stack before any local variables. 
Sequence of events for entering a procedure with parameters is: 
Mark the stack with an MSCW 


Create an IRW to the PCW location where the procedure we are 
entering is. 


Place actual parameter(s) on top of stack 


Enter procedure. 


stad ace tsp seen mt te nenia tn iie* Soghtn 
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CLASSIFICATIONS OF PARANETERS 


FORIVIAL 


Parameters which are described in the procedure header. 
Treated as local variables to the procedure body. 


Parameters are assigned the first local index cell(s) prior to declarations of the 
procedure body. 


ACTUAL 


Parameters actually passed to the procedure in invocation statement. 


ACTUAL parameters must match FORMAL. parameters in number and type. 


BEGIN 
REAL R; 


PROCEDURE P (W); 
REAL Ws; % FORMAL PARAMETER W 
BEGIN 
W := 523 
END OF PROCEDURE P; 


P (R); % ACTUAL PARAMETER R 
END OF PROGRAM. 
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REFERENCE TYPES 


BY VALUE 


Actual expression is evaluated once prior to procedure call. 


Any reference to the associated FORMAL parameter within the procedure body only 
modifies the local procedure copy and does not affect the ACTUAL parameter. 


BY REFERENCE 


A reference to the ACTUAL parameter is passed (SIRW). 


Any use of the associated FORMAL parameter causes interrogation or modification 
to the ACTUAL parameter passed. 


BY NAME 


Each use of the associated FORMAL parameter causes re-calculation of the 
ACGTUAL reference. 


Re-calculation causes a procedure entry called “accidental entry”. 
Sometimes called "THUNK". 


Expressions (i.e. 3 + X) can be passed, but only interrogation is allowed if the 
result does not produce a reference. 


Any attempt to store into a non reference producing ACTUAL parameter would 
cause program fault (INVALID OP). 


A further description will follow in a few pages. 
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BEGIN 
REAL 
ACTUAL_| (2,2) 
,ACTUAL_J (2,3) 
PROCEDURE P (FORMAL_I, FORMAL%J) ; 
VALUE FORMAL_J; 
REAL 
FORMAL_ | (3,2) 
»FORMAL_J (3, 3) 
BEGIN 
REAL LOCAL_X; (3, 4) 
FORMAL_| := 52; 
FORMAL_J := ACTUAL_! + 2; eset 
END OF PROCEDURE P; as 
panne (o cal X 
% Main li f ov ae * 
ain line of program. 4 —_——oooo 
ACTUAL_!| := 20; 33 Nn = 
ACTUAL_J := 100; 32 51a fred 
‘/ 1 
a rw Cte 
P (ACTUAL_I, ACTUAL_J) ; 3! ey 
END OF PROGRAM. 20 MSE 
2,5 Ope es 
2t DEAS 
a aaa GO aces ay 
22 qu ache 
f FX 
2, a SO 
2,0 M i 
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THUNK AND ACCIDENTAL ENTRY 


Passing an expression as a parameter causes the expression to be re-evaluated at 
every reference in the "passed-to" procedure. 


How does this re-evaluation occur? 


Upon detecting that an expression is being passed "by name", the compiler 
generates a small procedure that will do the re-evaluation. 


Then, instead of passing a value or data address to the procedure, the compiler 
generates code which passes an SIRW to the PCW for the procedure that does 
the re-evaluation. 


Whenever the called procedure asks for the value or address of the "by name" 
parameter, the hardware automatically invokes the procedure to do_ the 
re-evaluation. 


This automatic procedure invocation by the hardware is where the name “accidental 
entry" is derived from. It is also called a "thunk". 
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BY-NAME PARAMETER EXAINIPLE 


Consider the following program example: 


BEGIN 
REAL Y; 
PROCEDURE A (B);3 
REAL B; 

BEGIN 

B := 3; 

Y := 23 

B := 5; 


END OF PROCEDURE A; 
REAL ARAY X [0:9]; 
% Main line of program. 
A (xLY]); 
END OF PROGRAM. 


What has this program just done? 
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TYPED PROCEDURES 


Called "functions". 
Is really nothing more than a procedure that returns a value. 
Very similar to the Intrinsic functions such as SIN, COS, TAN, and TIME. 


When entering a procedure, an extra location is placed in the stack for the 
"procedure value". 


The compiler notes this if $ SET STACK is set. 
The procedure value comes after any parameters. 
The procedure value comes before any local variables. 


Instead of doing a normal EXIT operator to exit a procedure, the compiler will 
generate a RETN (Return) operator. This operator exits the procedure, but leaves 
whatever value was on top of the stack as the value of the procedure. It is the 
compiler's responsibility to make sure the procedure value is on top of the stack 
when the RETN operator is executed. 


In fact, this is how "“thunks" are done. The compiler generates a small typed 
procedure that returns the result of the expression that is re-evaluated at every 
usage. 


Copyright © 1986 Joseph & Cogan Associates, Inc. 


A Burroughs Company 


PAGE 158 


STACK REVIEW 
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BASIC STACK REVIEW 


Review PROGRAMDUMP for: 
JSD/CONCEPTS/LL2 
Find location of address couples. 
Find location of SDI:PWI:PSI. (003:0000: 1) 
Find length of each segment. 
X IS SEGMENT 00004. 
X (004) LENGTH IS 8 WORDS. 
Notice outer block identification is BLOCK#1. 


This is because there is no explicit name like a procedure has. 
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PROGRAIMDUMIP 


HEADER 


MIX numbers. 
Machine 

BOSR location 
Local BOX location. 


Program name. 


MCP Field Release.Patch Release.Cycle 
MCP name. 
INTRINSICS 


SYSTEM SERIAL. 
HOSTNAME. * 


Cause of dump. 
PROGRAM REQUESTED 
FAULT TERMINATION 
DSED TERMINATION 
SPO REQUESTED 
RCW history. 
Line number (notice they are absent: no LINEINFO) 
SDI:PWI:PSI 


PROGRAMDUMP options. 
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BODY 


LOSR 
LOSR - BOSR = Relative offset 


Items by column: 
Offset 
Address couple 
Environment Locations (D register settings). 
TAG 
Stack word 
Word type (OP, RCW, SEG, CODE) 
Word description 


Copyright © 1986 Joseph & Cogan Associates, /nc. 


A Burroughs Company 


PAGE 161 


PAGE 162 


CODE 


SEG DESC is the code segment descriptor (SDI) for each RCW. 
CODE represents a moving window of actual code. 
>01808EABDF60 < represents SDI:PWI for code lexical region will return to. 


SEGMENT dictionary DUMP is helpful if code that appears is not enough to analyze 
code history that caused the failure. 


OPTION = CODE 


Locate the PWIPSI for each RCW. 
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JSD/CONCEPTS/LL3 


Build the stack (at PROGRAMDUMP). 
Include: 


SEGMENT DICTIONARY stack. 
BASE 
Program code segments 
First Executable PCW (FEP). 


PROCESS stack. 
BASE 
Stack building code for Outer Block 
Stack for local procedure X. 
iS) 
F 
BOSR 
LOSR 
MSCW 
History linkage. 
Activation record linkage. 
RCW 


Review PROGRAMDUMP. 


Find code syllable each RCW is pointing to. 
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JSD/CONCEPTS/LL4 


Build the stack with the following: 
Include: 


SEGMENT DICTIONARY stack. 
BASE 
Program code segments 
First Executable PCW (FEP). 


PROCESS stack. 

BASE 

Stack building code for Outer Block 

Stack for local procedures. 

S 

F 

BOSR 

LOSR 

MSCW 
History linkage. 
Activation record linkage. 

RCW 
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PROBE 


Given the following program: 


BEGIN 
REAL VARI, VAR2; 
DOUBLE VAR3; 


PROCEDURE D (D1,02,D3) ; 


VALUE D1,D2,D3; 
REAL D1,02,D3; 
PROGRAMDUMP ; 
PROCEDURE A (A1,A2); 
VALUE Al,A2; 
REAL Al,A2; 
BEGIN 


ARRAY X [0:10]; 


PROCEDURE C (C1); 
REAL Cl; 
D (C1,VAR1,VAR2) ; 


PROCEDURE B (B1); 
VALUE Bl; 


VARI] := 13 
VAR2 := 18; 
A (VAR1,VAR2) ; 


END OF PROGRAM. 
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Build 


Include the following: 


SEGMENT DICTIONARY stack. 


BASE 
Program code segment descriptors 
First Executable PCW (FEP) 


PROCESS stack. 


BASE 
Stack building code for Outer Block 
Stack for local procedures 
S 
F 
BOSR 
LOSR 
MSCW 
History linkage. 
Activation record linkage. 
RCW 
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the stacks at the point in which the program forced a program dump. 
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MEMORY DUMPS 


OVERVIEW 


Memory dumps are a snapshot of memory. 
Multi-processing is discontinued during dumping the contents of memory. 


A MEMDUMP routine within the MCP executes in a portion of memory that is 
reserved for dumping without destroying the state of usable memory. 


Media for output is usually TAPE. 


Dump to disk is also possible. 
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CAUSES 


Operator requested using the DUMP ODT command. 
Operator requested using the ??DP primitive. 
System generated because of: 

Potential software failures. 

Potential hardware failures. 

General diagnostic. 


Reset TERMINATE; MCP run-time option (any failure such as INVALID INDEX 
or SEG ARRAY ERROR will cause a dump). 
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INTRODUCTION 


DUMPANALYZER produces user-specified subsets of information from a memory 
dump. 


Analyzes information according to parameters given or default. 
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MODES 


INTERACTIVE 


Commands are processed separately as it is entered by the user. 


Can specify where output is to be sent (printer or remote). 


STANDARD 


Commands entered completely before processing. 


Output always directed to the printer. 
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SAVED DUMPS 


Stored for future processing without requiring original memory dump input TAPE. 


Faster future processing. 
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EXECUTION 


Normal tape input. 
RUN *SYSTEM/DUMPANALYZER; 
Saved dump. 


RUN *SYSTEM/DUMPANALYZER; 
FILE TAPEIN (KIND=DISK, TITLE>MEMORY/DUMP/TITLE); 


Select run mode: STANDARD or INTERACTIVE 
Memory dump tape is processed with the following responses: 
Initial options display. 
Initializing. 
Reading <dump file name> 
Initializing stack info. 
Lineinfo/names. 


Enter requests... 
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BASIC CONSTRUCTS 


Numbers default is hexadecimal. 
<simple address 
<absolute> 


4F3A2 


<simple locatior? 
STK 4A3 
PIB A6 
STK 682 + 7 


RV M [47AC2] 


<multiple addres 
More than one memory atareee: 
4AF3 FOR A6 
3BAC TO 3BCB 


STK 32 LOSR TO BOSR 


<simple value 
M [4A32] 


DEC 100 


Partial words are available. 
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CONMIMANDS 


AREAS 


Prints contents of memory areas. 
Areas can be searched by type or size. 
AREAS SIZE 512 


AREAS ODDBALL FIBMARK 


BOX 


Designates local box to use for some memory commands. 


DC 


Causes a full data communications analysis to be “printed. 


DEADLOCK 


Causes information to be printed regarding stacks that hold locks or waiting for a 
lock. 
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FIB 


Analyzes a FIB at a given address. 


FIB AT 4A3DE 


HDR 


Causes an analysis of the disk file header stack. 


HELP 


Provides information about DUMPANALYZER commands. 
HELP AREAS 
HELP HELP 


HELP <number> 


lO 


Invokes input/output analysis of all peripherals. 
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IOCB 


Causes an I/O contro! block to be printed. 


LINKS 


Prints the address and contents of each link of a memory area. 


LOCKS 


Reports on the status of soft (PROCURED) locks. 


MID 


Dumps the contents of a group of address in memory with no analysis. 


MD 6DE43 FOR A6 


NAMES 


Causes the entire list of MCP names and D[0] relative address. 


Names appear in numeric and alphabetic sequences. 
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PIB 


Prints the contents of a PIB. 


PRINTER 


Routes output to the printer instead of the terminal. 


PRINT VALUE/PV 


Displays the specified <simple value> in several possible forms. 


QUEUE 


Displays DCALGOL queues. 
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RELEASE 


Closes the current print file. 


RELX 


Causes the current print file to be closed and printed (using SYSTEM/BACKUP). 


REMOTE 


Routes output to the terminal rather than the printer. 


Causes the memory dump to be stored on disk for future use. 


MCP names and memory contents are retained releasing the need of having the 
current MCP code file and original memory dump tape. 


SAVE "MEMORY/DUMP" 
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SEARCH 


Provides the ability to check each word in memory for a specified pattern of bits. 
Can search including TAG. 
SEARCH MOMDESC RANGE 3DE9 FOR 6F 


Command which initiates a memory search for a specific PATTERN optionally using 
a MASK. 


MASK 


Used to mask fields for searching. 


PATTERN 


Bit configuration to search for. 
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STACK 


Causes the contents of a stack to be interpreted and printed. 


STOP 


Terminates execution. 


SUMMARY 


Provides the list of stacks in the machine and the status of the stacks at the time 
the dump was take. 
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WHERE 


Displays the DIO] relative location of <MCP global namee. 


WHERE BLOCKEXIT 


Response: 00A BLOCKEXIT 


WHO 


Displays the MCP global name for a D[O] relative address. 
WHO OOA 


Response: 00A BLOCKEXIT 
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ASD CHANGES 


DUMPANALYZER now allows the displaying of memory pointed to by an ASD entry 
by using the "via" option: 


MD via 4425 for 20 


{will print out the twenty words of memory pointed to by ASD entry 
4425) 


ASDNUMBER <asd #> [EXPAND] 


The above command will display the ASD entry requested. 
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ADVANCED STACK ARCHITECTURE 
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SHARED GLOBAL ENVIRONMENTS 
OVERVIEW 


Internal procedures may be initiated as a separate stack executing in step 
(SYNCHRONOUS) or in parallel (ASYNCHRONOUS). 

The external task(s) is(are) dependent upon the initiator (or parent). 

The block which is designated as the CRITICAL BLOCK must not attempt to exit 
before its dependent children terminate. If this happens, a CRITICAL BLOCK EXIT 


error is issued. 


The scope of visibility of variables remains the same if the procedure was invoked 
in the caller. 


Global variables may be interrogated or modified by the caller and all dependent 
processes. 


Resource protection (LOCKs) is the means to coordinate access to _ shared 
variables. 
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EXAIVIPLE 


What will be the value of the variable | at EOT? 


BEGIN 
REAL 13 
TASK TSK; 


PROCEDURE P; 
BEGIN 
REAL X; 
X := 24; 
| := 52; 
END OF PROCEDURE P; 


| := 223 
PROCESS P [TSK]; 
| := 755 


WHILE TSK.STATUS GEQ 9 DO 
WAITANDRESET (MYSELF .EXCEPTIONEVENT) ; 


END OF PROGRAM. 


A eT TSA AERP SSSR AR ASS ESSEC SESS ht str Rss FATTER SSSR EFORCE NSS Se iS a nent WARS HE A SSAA CSRS AR nT rN 
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INTRINSIC INTERFACE 
OVERVIEW 


Intrinsics are a set of general utility routines which can be invoked as if they 
where procedures declared in each programs environment. 


The environmental software comes with a set of these routines which appear in 
the GENERALSUPPORT library. 


The user has the option to create his own utility routine library (INTRINSICS). 


This interface was available prior to the implementation of libraries. 


Copyright © 1986 Joseph & Cogan Associates, Inc. 


Burroughs Company 


PAGE 188 


LINKAGE PROCESS 


1. The first call to an intrinsic (i.e SQRT) causes a slot to be reserved in the 
program's SEGMENT DICTIONARY. 


| := SQRT (9); 


(1,5) = SQRT 
2. This slot contains an invalid word required for procedure entry (PCW). 
5 070000 000001 <--- Intrinsic Number 
3. The code to execute the above cail to SORT would be: 
ALGOL: 
SQRT (9) 
CODE: 
MKST 
NAMC (1,5) 
LT8 9 <--------- Parameter to the SQRT Intrinsic 
ENTR 2 


4. The ENTR would cause an INVALID OPERATOR interrupt to to occur due to 
the fact that it is trying to enter a data descriptor instead of a PCW. 


Note: This type of interrupt (entering a tag 5 word with an Element Size of 7) is 
called a "Binding Request”. 


5. The hardware interrupt routine would recognize the TAG of 5 and the 
ELEMENT size of 7 as an INTRINSIC call. 


6. The address field contains the numeric mnemonic representation of SQRT. 


Te The MCP then changes the invalid TAG 5 word to a SIRW pointing to the 
location of the PCW in the GENERAL SUPPORT LIBRARY or the INTRINSIC 
stack. 


8. The INTRINSIC stack contains data, PCWS and SEGMENT descriptors (much 
like the MCP stack). 


9. The intrinsic routines run at LEX level 2. 


Co eee cae ceraenamnamnseiammmetanmamninentemmnataliadiennae:antratdomerneeenncn-eauasa cuneate sonatas ramen oncaesvsemes™on-omaammtensiuneaezetecemecimtacecaneiecscinacaiaeetaatanecnmn-rrmramezemy me corer orem aC 
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MICP INTERFACE 
OVERVIEW 


1. Each call to an MCP procedure (i.e PROGRAMDUMP) causes a slot to be 
reserved in the programs SEGMENT DICTIONARY. 


PROGRAMDUMP (ARRAYS) ; 
(1,5) = MCP reference 


2. This slot contains an invalid word required for procedure entry (PCW). 
5 070000 FFEOI7 

3. The code to execute the above call to PROGRAMDUMP would be: 
MKST 
NAMC (1,5) 
<OPTIONS Parameter> 
ENTR 


4. The ENTR would cause an INVALID OPERATOR interrupt to to occur due 
to it finding a data descriptor instead of a PCW. 


5. The hardware interrupt routine would recognize the TAG of 5, the ELEMENT 
size of 7 and the FFE in the length and address fields as an MCP procedure 
call. 


6. The address field contains the mnemonic representation of PROGRAMDUMP. 


7. The MCP then changes the invalid TAG 5 word to a SIRW pointing to the 
location of the PCW in the MCP stack. 


8. The MCP stack contains data, PCWS and SEGMENT descriptors. 


9. The MCP intrinsic routines run at LEX level 1 since they are actually declared 
at LEX level 0. 


10. The ENTR operator is re-executed and the MCP procedure is invoked since 
the target is now a valid PCW. 


11. Actually, all MCP or INTRINSIC references are resolved in NORMALBOQJ. 
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PASSING PROCEDURES AS PARAMETERS 
OVERVIEW 


Procedures may also be passed as parameters to other procedures. 


Procedures may be passed to: 
Internal procedures that are invoked. 


Internal procedures that are executed as dependent processes. 
Separately compiled programs. 


Activation record environment depend on the location in which the procedure 
passed as a parameter is DECLARED. 


There may be multiple D[2] references in this complex stack linkage environment. 


Ae A SA A NPE SSS Ps SF SSS SS SPSS ASA ASE, cr PSS PSS SSS Pp SPE SP Pr OP sn AAR cm mig Xn 
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Main Program 
BEGIN 
REAL R; (2, 2) 
TASK TSK; (25.3) 
PROCEDURE P; (2,4) 
PROGRAMDUMP ; 
yo~ PROCEDURE EXT (PROC) ; (2,5) 
io  PROCEUUR: PROC (); (3,2) 
\ —. FORMAL; 


“NW EXTERNAL: 


REPLACE TSK.NAME BY "OBJECT/EXT."'; 
PROCESS EXT (P) [TSK]; 


WHILE TSK.STATUS GEQ 0 DO 
WAITANDRESET (MYSELF .EXCEPTIONEVENT) ; 


END OF PROGRAM. 


OBJECT/EXT 
S$ LEVEL 2 


PROCEDURE EXT_PROC (P1) 3; 
PROCEDURE P1 (); (2,2) 
FORMAL; 
BEGIN 
REAL X; (2, 3) 
Pls; 
END OF PROCEDURE EXT_PROC AND PROGRAM. 
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LIBRARY INTERFACE 
OVERVIEW 


This type of linkage essentially is the same as passing a procedure as a parameter. 
The syntax to invoke the library procedure is different. 


The caller and the library are usually separate programs. 
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LINKAGE PROCESS 


THE CALLER 


1. The compiler builds a TEMPLATE which describe the 
following: 


© attributes of the library 

o TITLE of the code file 

o Procedures which should appear in the library 

o The count and type of the parameters of the library routine. 


2. The compiler builds an invalid PCW at the location where the procedure in 
the library is declared in the caller. 


PROCEDURE P_IN_LIB; (2,5) 
LIBRARY LIB; 


5 670001 4808E9 (2,5) 
3. The caller invokes the procedure with the following code: 


MKST 
NAMC (2,5) 
ENTR 


4. The ENTR operator would cause an INVALID OPERATOR interrupt because the 
target is not a PCW. 


5. The MCP hardware interrupt routine would recognize that this is a library call 
because: 


TAG 5 
INDEX bit on 
ELEMENT size 7 


6. The ADDRESS field of this word contains the memory address of the actual 
location of the TEMPLATE. 


7. The LENGTH field contains an index into the TEMPLATE for the procedure 
which we are trying to invoke. 


8. An MCP library linkage routine is call which causes the actual library to be 
automatically invoked. 


A a EEN PRR NERS SO TERPS HOUSES SPE i Shor refer mean ae tA STRNORPEEES APRS 21 MRPCENEN Pei sana A nS 
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After the linkage is made the MCP routine inserted an SIRW at (2,5) which 


points to the actual PCW for the library procedure. 


The ENTR operator is re-executed. 
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THE LIBRARY 


1. The library begins executing as a normal program. 


2. For each procedure referenced in the EXPORT declaration the compiler 
inserts into a library DIRECTORY the name of the procedure, the number and 
types of parameters, and an SIRW to the actual PCW for the procedure. 


a) 


When the library program executes a FREEZE, an MCP procedure is called to 
make this program a LIBRARY. 


o Shrinks the stack. 
o Looks’ around for any task looking for this program as a library. 


4. When a caller is found the library procedure which it wants to invoke is 
searched for in the libraries DIRECTORY. 


5. The count and type of parameters are verified in both the callers TEMPLATE 
and the libraries DICTIONARY. 


G. If the parameters match the libraries SIRW for the actual procedure is placed 
in the callers slot reserved for the procedure. 


7. All references to procedures which the caller wants in a library are resolved 
at upon the first reference. 


(Sag a OS OARS APNE ECGS GS-7 SRS 5 i SR ASAT PIC RAR nara pA HAPPENS STRSTR Ss ONS MESSIANIC ISIDORE AI SEPIA EMEA, 
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CALLER 
BEGIN 
REAL X; (2,2) 
LIBRARY LIB (TITLE = "OBJECT/LIB.") ; (2, 3) 
PROCEDURE P_IN_LIB; 
LIBRARY LIB; 
P_IN_LIB; 


END OF PROGRAM. 


OBJECT/LIB 
BEGIN 


PROCEDURE GLOBAL_P; (2,2) 
PROGRAMDUMP ; 


PROCEDURE P_IN_LIB; (2, 3) 
BEGIN 
REAL R; (3, 2) 
GLOBAL_P; 
END OF PROCEDURE P_IN_LIB; 


EXPORT P_IN_LIB; 
FREEZE (TEMPORARY) ; 


END OF PROGRAM. 
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PROGRAM INFORMATION BLOCK -- PIB 


OVERVIEW 


The PIB contains TASK attribute information. 
Any reference to TASK attributes causes DLO1] to point into the PIB structure. 
The PIB is treated like a stack so that access to attributes is accomplished by 


normal variable addressing since the activation record pointed to by D[01] 
contains all of the PIB information. 
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FILE INFORMATION BLOCK -- FIB 


OVERVIEW 


The FIB contains directly or indirectly all the elements of the file structure. 

Many of these elements are FILE attributes. 

Referencing the FILE structure causes D [01] to point within the FIB. 

The FIB is treated like a stack so that access to attributes is accomplished by 


normal variable addressing since the activation record pointed to by D([01] 
contains all of the FIB information. 


eo PRE COO TRS CES NACE OE A SSS PL GA AG MAAC Te AIO MDE CP NRCS ETSI MEARE EEA Sy EECSLSRESY SLI SERCD AEA A pF FP Pn =P Ar SDD 


Copyright © 1986 Joseph & Cogan Associates, Inc. 


Burroughs Company 


PAGE 199 


CODE FILE CONSTRUCTION 
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INTRODUCTION 


The following subjects will be reviewed in appendix B "Code File Construction” 
and with program listings. 


Code File Layout 
Segment Zero 
Segment Dictionary 
File Parameter Blocks (FPBs) 
Compiler/intrinsic Interface 
Binding ~~ 5 


Lineinfo 
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OPERATING SYSTEM INTERFACE 


Burroughs Company 


CODE FILE LAYOUT 


Review the text in the appendix. 
Demonstrate actual SEGMENT ZERO in dumpall listing of: 


CODESTRUCTURE/TEST/STACK 
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SEGMENT ZERO 


Review the text in the appendix. 

Build the following of the SEGMENT DICTIONARY. 
Fixed portion of the stack (BASE). 
Actually perform READWITHTAGS. 
First location is the MSCW. 

Use the dumpall listing of: 
CODESTRUCTURE/TEST/STACK 


Build the SEGMENT DICTIONARY from the dumpall list. 
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SEGMIENT DICTIONARY 


Once you have built the SEGMENT DICTIONARY, relate all stack items to address 
couples in the compile listing. 
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PROBE 


Using the dumpall listing: 
CODESTRUCTURE/TEST/STACK 
1. Build the complete SEGMENT DICTIONARY including the BASE and analyze each 
of the fields of each of the words. 
2. Locate and determine the value of the fields of the FEP. 
3. Find the code syllable pointed to by the FEP. 


4. Find the syllable pointed to by PCWS given to you by the instructor. 
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FILE PARAMETER BLOCKS -- FPB 


Review the text of the appendix. 
Review the DUMPALL listing. 


Records 1 and 2 (0 relative) are FPBS. 
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COMPILER/INTRINSIC INTERFACE 


Compiler places invalid descriptors (SIZEF = 7) in the Segment Dictionary. 


MCP changes them to SIRWs to the procedure's actual PCW. 
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BINDING 
OVERVIEW 


The process of merging separately-compiled procedures into a main host creating a 
sirigle executing unit. 


BINDING also allows inter-language procedures to be combined and invoked. 


The BINDER is a compiler who is responsible for merging of the separate code 
pieces into one. 


This facility was developed before libraries were implemen- ted. 
Many sites still use the binder. 


The MCP is built with separate inter-language modules which is bound to the MCP 
host producing a running MCP code file. 
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GLOBAL DECLARATIONS FOR BINDER 


The languages provide the capability to reference GLOBAL variables when compiling 
a separate unit. 


ALGOL 
L 
REAL GLOBAL_R1; 


PROCEDURE GLOBAL_PROCEDURE ; 
FILE GLOBAL_FILE; 


J 


COBOL 


O01 GLOBAL_RECORD GLOBAL. 
03 GLOBAL-ELEM PICTURE X(100). 
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EXTERNAL DECLARATIONS FOR BINDER 


The syntax for declaring an external procedure which is to be bound is: 
ALGOL 
BEGIN 
PROCEDURE BOUNDPROC; 
EXTERNAL; % Note that the body of the 

% procedure is replaced by the 
* word EXTERNAL. 

BOUNDPROC; # A normal invocation. 


END; 


COBOL74 
DECLARATIVES. 


BOUNDPROC. 
USE AS EXTERNAL PROCEDURE. 


END DECLARATIVES. 


PERFORM BOUNDPROC. 
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BINDER SYNTAX 


The syntax for binding includes: 


HOST 1S OBJECT/HOST; 
BIND BOUNDPROC FROM OBJECT/BOUNDPROC; 


The binder must know about the names and address couples in both the host and 
the separate routine to resolve the differences. 


If the BINDER does not find a reference in the HOST that was declared GLOBAL 
in the routine to be bound, the BINDER will add this item to the HOSTS outer 
block declarations. 


Internal procedures may be replaced using the BINDER. 
The resultant code file has the FILEKIND of BOUNDCODE. 


BOUNDCODE files may be used as HOSTs. 
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BINDER CONVENTIONS 


See Appendix B, Code File Information, of the Student Appendix. 


For BINDER to be able to do its job, it must be able to find out about all of a 
program's declarations. 


These declarations are encoded and kept in the code file (unless the compiler 
dollar option NOBINDINFO is set). 


UNIVERSAL CLASS 


Is used to determine the rough category of tokens in the code file. 


This could be things such as INFORMATION KEYWORD, DATA DESCRIPTOR, 
PCW, FILE, TASK, etc. : 


SUB CLASS 


Within a given Universal Class, what more specifically is being discussed. 


For example, for a Universal Class of 2 [two] (48-bit Operand), some of 
the possible Sub Classes recognized are: 


Single Precision Operand (INTEGER) 
Single Precision Operand (REAL) 
Single Precision Operand (BOOLEAN) 
WORD Variable 

REFERENCE Variable 


hWNH =O 
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PROGRAM DESCRIPTION 


A structure in the code file that defines all procedures in the program and _ all 
external references, such as intrinsics and global variables. 
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PROCEDURE DIRECTORY 


A structure in the code file that lists all of the procedures in a _ program, 
regardiess of their lex level. 
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EXTERNAL DIRECTORY 


A directory of what items are outside of this program, such as intrinsics. 
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LOCAL DIRECTORY 


For each procedure, there is a Local Directory enumerating the items declared 
within that procedure. 


These items could be ARRAYs, REALs, INTEGERs, and even other PROCEDUREs. 
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PRINTBINDINFO 


Review example in the Printed Listings. 
Documented in the System Software Support Manual. 


Mainly, reads a code file and generates its declarations, without 
code. 
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any executable 
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FPB/PPB RUN TIME 


Review the File Parameter Block and Program Parameter Blocks in the code file. 
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LINEINFO 


This information relates SDI:PWI:PSI locations to program sequence numbers. 
Used to when analyzing RCWs when producing a PROGRAM DUMP. 
Controlled by the following compiler doliar option: 

$ SET LINEINFO 


Defaults to SET when compiling under CANDE. 


Burroughs Company 
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LINE DICTIONARY 


This item is the READONLY descriptor referenced by the SDI 1 (1,1). 


Each word of the LINE DICTIONARY contains the relative record in the code file 
of the beginning of the sequence information. 


The LINE DICTIONARY is indexed by the SDI of the code pointer we are trying to 
find the sequence number for. 


SD1:0 SD] SDI 32 SDI 33 
000000000000 000000000000 000000000000 000000000002 


Record 2 of the code file contains the sequence number information for SDI 3. 


A REL RE ASAE A PNR nn Se A TTD an tani hie eer Er yeep n ngs acre naka An dpm rrr ASSETS Ves APEORSIMATONES PPO SRP 0 S-UTR ETTENED rma hp rp epee =O PSM 
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FORMAT OF SEQUENCE RECORDS 


Word 0: 
[39:20] Total character count of entire sequence number record 
starting at word 1. 
[19:20 ] Back link to previous sequence information for the same SDI. 
Word 1: 
2 bytes PWI:PSI. for the beginning of the code for the following 
sequence number. 
[15:12] PWi 
[02:03 ] PSI 
1 byte Binary length of the sequence number. 
SSSSSS_—s Actual sequence number. 
Word 2-N: 


Word 1 format continues until end of sequence information. 
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ower Ke. ye? 
EXAIVIPLE ee ieee 


= 0 
ae aa Assume SD1:3 ay 
| [Tue (TOO 


4 
, ¥ . 
000002C00000 000 O8FOFOFO FOF 1F 1FOFORO 0] FOFOFOFQ 


wag 
F \F7FOF OOO | O8F OF OFOFOF 3 F7FOF 400 15p8 F OFOFOFOF 3F8 
FOFO) | Baa 

a a) | 


= Hoe 


Total length 2C (44) characters. 
3:0:0 starts sequence 1100 
3:0:1 starts sequence 1700 
3:1:4 starts sequence 3700 


3:2:5 starts sequence 3800 


If an RCW contains 3:1:2, what line would it reference? 


6 8 sa i om rare SSD Ry tena SE PS PS TR FO ET A Fo ISTE SPO PS FE PES SR RSE ES A 7 TS SS SS OS PET 
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PROBE 


Using dumpall listing for: 


CODESTRUCTURE/LINEDICTIONARY 


Build SEGMENT DICTIONARY. 
Find FEP. 
Find syllable pointed to by FEP. 


FInd line numbers for instructor given SDI:PWI:PSI 
sequences. 


Build 3 items of the EXTERNAL directory. 
Locate 1 procedure directory record. 
Locate and process 5 items from a LOCAL directory. 


Identify if there is any run time FPB/PPB information. 
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MACHINE OPERATOR SET 


19 RR BR EE SEES FL SE EP SSS ESE STRESS HR SA UZ SSS SRS PRE Aire RSENS RTOS cei SAARI: NP RCAC GANDA SS TESTO AS 
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REVERSE POLISH NOTATION 


OVERVIEW 


Arithmetic or logical notational system using only operands and operators arranged 
in sequence or strings. 


Eliminates the need for intermediate storage for multiple computations. 
Well suited to stack architecture. 


Example: 
A+B+C 


Reverse Polish Notation 
merce Abe ++ a+ .c) 
Polish Notation 


++ABC 


nt a NL EES SPT PRP FOCUSES RES AVS DSSS AS SPOR PARC VG EPP EAP SF A PSPS SPU USS ASS PO cS ES-ES 2 AC PSE PNA PREY sh ACPA VA ASO PEPE CG TARE SORRE 
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EXAIVIPLES 


Expression 
7 * (B + C) 
Y+2* (W+V) 


A AND B AND NOT C 


1 6C +% 
SSN an 


x @ od Crt ag 


So LRT RO RE OSS RES EEA NPC THOSE PCI VCS SSNS EN ohne srr AEN AP 
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Reverse Polish String 
7 BC+ x 
Y2WV+% + 


A B AND C NOT AND 
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REFERENCE GENERATION OPERATORS 
NAMIC 40-7F 


Name call operator transforms an address~couple in the code stream into: 
NON-EMODE: an IRW 
E-MODE: an NIRW 


The address couple given in the code stream is variable fence. 


Examples: 
5002 NAMC (2,2) 
7003 NAMC (3,3) 
4017 NAMC (0,17) 
6005 NAMC (1,5) 


A RAE AONE 
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LNVMIC 958C 


Long name call is equivalent to NAMC except that its parameter is a fixed fence. 


STFF AF 


The stuff operator converts an IRW or an NIRW into an SIRW. 
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INDX A6 


The index operator applies an integer index to an un-indexed data descriptor and 
leaves on top of the stack an indexed Data Descriptor to the specified element. 


If the data descriptor is a word data descriptor, the result is an Indexed Word 
Data Descriptor. 


If the data descriptor is a Character Data Descriptor, the result is a Pointer. 


IRW chaining will occur, if required. 


INXA E7 


EM? VE 
The index by means of address couple operator is functionally equivalent to the nh, 
INDX operator except that the address couple follows the INXA operator as a qd 
fixed fence. 


Pe: 


C8 


. we Sov 
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OCRX 9585 


The Occurs Index operator computes an offset into a record. 
It is primarily used by COBOL for array handling and ALGOL for CASE statements. 
The two top-of-stack items must be: 
Occurs Index Word (Index Control Word) 
Index 
The format of an Occurs Index Word is: 
[47:16] Width Coefficient (width of each occurrance) 
[31:16] Upper Bound (one-relative) 


[15:16] Offset Coefficient (from beginning of record) 


OCRX calculates a zero-relative offset from the beginning of the record which can 
be used by the INDX (or similar) operator. 


The formula used by OCRX is: 
Relative Index = Offset + (Index - 1) *-Width 


As the OCRX operator assumes one-relative indices, if the Index value is less than 
one or greater than the Upper Bound, an INVALID INDEX interrupt will occur. 
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MIPCW BF 


The make PCW constructs a PCW at the top of the stack from a six syllable 
parameter in the code stream. 


The TAG is changed to a 7. 
The SNR is also inserted into the STKNFPF. 
The parameter to the MPCW operator must start on a word boundary. 


Any syllables after the MPCW and before the parameter are ignored (usually filled 
with Hex "FF's). 


ha A LY TAS 
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READ EVALUATION OPERATORS 


ld) 
VALC OO-3F 
The value call operator evaluates a reference chain whose head is an address 
couple parameter. 
The end result must be an operand. 
If a PCW must be evaluated, accidental procedure entry is performed. 


The parameter is a variable fence address couple. 


EXAMPLES: 
1002 VALC (2,2) 
3003 VALC (392) 3,3 
2002 VALC (1,2) 


LVLC 958D 


The long value call is equivalent to the VALC except that its parameter is a 
fixed-fence address couple. 


Ree ee nn ee cme-aialeusocen=nttaneamneeancas east na aici ne a aeeeimeaeaTnnme ertestnameanateanemeenmenteamenenemt Tacaatananaiedieieneeseeene net nsharon-aens mrnaueteame quetsemmeemenndamecemeseemiee saemeennelateunanenstencenncsimanmnee necheaesmamendasianenteentesnentennmeneeomesiasemn aninemae remeanentiniaetaaeseeneeatmant 
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0 


NXLV AD «"* 


The index and load value operator performs an INDX operation to produce an 


Indexed Word Data Descriptor and then evaluates the Indexed word data descriptor 
to fetch an operand. 


IRW chaining can occur. 


NXVA_ EF 


The index and load value by means of fixed fence address couple parameter is 
functionally the same as the NXLV operator. 


NXLN AB «wh?2, ) pon” 


The index and load name operator performs an INDEX operation to produce a 


Indexed Word Data Descriptor and then evaluates to fetch an un-indexed data 
descriptor. 


Copy bit action occurs. 


LL TAT Hil ea 


arama ana het 
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EVAL AC 


The evaluate operator is used to evaluate a reference chain in order to locate 
some target and then leave on top of the stack the reference whose evaluation 
produced the target. 


This operator is used when the actual target is needed for execution of another 
operator (String transfer). 


NEWP uses this operator prior to passing a parameter by reference to guarantee 
the SIRW points to the target. 
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LOAD BD 


The load operator fetches a target and places it on top of the stack. 


If the reference is a NIRW (IRW NON-EMODE) the target is fetched and placed on 
top of the stack. 


lf the reference is a Word or a Double Indexed Data Descriptor the target is 
fetched and placed on top of the stack. 


If the target is a Data Descriptor, copy bit action will occur. 


ee sais 


LODT 95BC 


The load transparent operator performs a LOAD operation. 
The reference can be a 20 bit address reference. 


If the target is a Data Descriptor, no_copy bit action occurs (an original descriptor 
is fetched and place on top of the stack). ya 
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STORE EVALUATION OPERATORS ot 


STOD B8 


The store delete operator places the operand at the top of the stack at the 


reference pointer. : 
{{ sasttch, fre 


The order of the operand and reference pointer may vary. 1 we J wi go dad’ 


The reference pointer may be an NIRW (IRW for NON-EMODE) or an Indexed Data 
Descriptor. 


IRW chaining may occur. 


If the target referenced is a PCW accidental procedure entry occurs producing a 
new reference. 


Both the reference and the operand are deleted from the top of the stack. 


If the target location has the memory protect bit on, an interrupt occurs. 


STON BY 


The store non-delete operator performs a STOD function, except that at 
completion of the operation the original operand is left on stop of the stack. 


The reference is deleted from the top of the stack. 


If the target location has the memory protect bit on, an interrupt occurs. 
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STAD F6 ¢ nov] 


The store delete by means of address couple is functionally equivalent to the 
STOD operator except that the reference is a _ fixed-fence address couple 
parameter. 


Both the reference and the operand are deleted from the top of the stack. 


If the target location has the memory protect bit on, an interrupt occurs. 


STAN F7 


The store non-delete by means of address couple is functionally equivalent to the 
STON operator except that the reference is a_ fixed-fenced address couple 
parameter. 


The reference is deleted from the top of the stack. 


If the target location has the memory protect bit on, an interrupt occurs. 
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OVERWRITE OPERATORS _3e 


\ 
ae 


po <2 
OVRD BA Le 
o* 
ur x 
An overwrite delete essentially performs the STOD operator, except that no 
interrupt occurs if the target has the memory protect bit on (i.e. has an odd tag). 


The reference and the operand are deleted from the top of the stack. 


OVRN BB 


The overwrite non-delete functional performs a OVRD operator except that the 
operand is left on top of the stack. 


The reference is deleted from the top of the stack. 


“Ae ak 22m GOL PT ROD NOREEN NT eres REPT a0, = SST cS i tthe Sr a TA ESET A A ARPA MTD OE SPOR SAAC AR EE ET TST SOTA ESET A SS 
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CONMIPUTATIONAL OPERATORS 


ADD 80 


The add operator performs an arithmetic ADD operation on the top 2 operands on 


top of the stack. 


The result is left on the top of the stack. 


Program Segment: 


REAL 
R1 
»R2 


e 
’ 


Rl := R1 + R2; 


Code String: 
Non-EMODE: 
1002 1003 
VALC (2,2) VALC (2,3) 
EMODE: 
1002 1003 


VALC (2,2) VALC (2,3) 


80 


(2,2) 
(2, 3) 


5002 B8 


ADD NAMC (2,2) STOD 


80 
ADD 


F62002 
STAD 
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SUBT 81 


The subtract operator takes the numeric value of the top item and algebraically 
subtracts is from the numeric value of the second item in the stack. 


The result is rounded and left on top of the stack. 


Program Segment: 


REAL 
RI (2, 2) 
»R2 (2, 3) 
»R3 (2,4) 


R] s:= R2 - R33 
Code String: 


Non-EMODE: 
1003 1004 8] 5002 B8 
VALC (2,3) VALC (2,4) SUBT NAMC (2,2) STOD 


EMODE: |. of 
902NC°t 4993, WY 81 F62002 
VALC (2, 2) VALC (2, 3} SUBT STAD 


Sn etn na aeemmnramensansmionnnnaneipeqenansm arama earac a ame oe soe on oa nS 7 enn eaten ea pmeremnnn al 
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MULT 82 


The multiply operator algebraically multiplies the top two items in the stack. 


The result is rounded and left on top of the stack. 


DIVD 83 


The divide operator algebraically divides the numeric value of the second item by. 
the numeric value of the first item in the stack. 


The result is rounded and left on top of the stack. 


5 Ge 
NTGR 87 &- 


INTEGER function in ALGOL. 


The integerize rounded operator converts the operand on top of the stack to an 
integer by rounding and leaving the result on top of the stack. 


NTIA 86 


ENTIER function in ALGOL. 


Integerize truncated returns the greatest integer value less than or equal to the 
operand. 


DIFFERENCE BETWEEN NTGR AND NTIA 


There is a small but significant difference between the two operators. Effectively, 
NTGR adds 0.5 to the value and then does an NTIA. 


The following table should help to illustrate: 


mTar 
Value -—NTGR NTIA | WTAERY 
3.2 3 3 = 
3. 4 3 3 
aD ~3 -h i 


Aen si te eta CAE ASAE ARSE Cis vi nt SS PPPOE VTORSU SIS SA = SSP SSE CSE MASESVEN RPT SAS ETE OEP A A RCT EPEC HSE SP 
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CONMIPLEX ARITHMETIC EXANIPLE 


Program Segment: 


BEGIN 
REAL 
RI (2,2) 
»R2 (2, 3) 
»R3 (2,4) 
INTEGER 
1] (2,5) 
,12 (2,6) 


11 s= Rl] + R2 * 12 / R3; 


Reverse Polish Notation String: 


R1} R212 * R3/ + 11 c= 


Code String: 


Non EMODE: 
1002 1003 1005 82 
VALC (2,2) VALC (2,3) VALC (2,5) MULT 


1004 83 80 87 5005 B8 
VALC (2,4) DIVD ADD NTGR NAMC (2,5) STOD 


EMODE: 
1002 1003 1005 82 
VALC (2,2) VALC (2,3) VALC (2,5) MULT 
1004 83 80 87 F62005 
VALC (2,4) DIVD ADD NTGR STAD 


Ce ene eee ee rmmentiammtetanadialapmunmaen]aaantannacnsssenananeenanetenmmnnanasnaneeenantmnnemmmmastemenmnnee™eepiemaonmncaner nate cenee erm em mec Tac ea eae aaa noe 
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IDIV 84 


The integer divide operator causes the numeric value of the second item in the 
stack to be divided by the numeric value of the first item in the stack. 


The fractional part of the quotient is discarded. 
The integer part is left on top of the stack. 


R := RI DIV R2; 


Examples: 
XS 
8 DIV2=4 
8 DIV 3 = 2 
8 DIV 5 = 1 


RDIV 85 


The remainder divide causes the numeric value of the second item in the stack to 
be divided by the first item in the stack. 


The integer quotient with remainder is generated. 


The remainder is left on top of the stack. 


R := Rl MOD R2; 
Examples: 

8 MOD 2 = 0 

8 MOD 3 = 2 

8 MOD 5 = 3 
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AMIN 9588 


The arithmetic minimum compares the numerical values of the top two items on top 
of the stack. 


The lesser of the two items is left on top of the stack. 


AMAX 958A 


The arithmetic maximum compares the numerical values of the top two items in the 
stack. 


The greater of the two items is left on top of the stack. 


AN EAA RLSTR SRO SEES i ene Sn Bh Ae AAT ABA A RSA: TE mh AASB ATER ROCA PC gi A Se MAC enh snc SA aA A SOE SS GE SE 
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LOGICAL OPERATORS 


Logical operators use one or two items on top of the stack as 48 or 96 bit 
vectors. 


These items may be of any type. 
The logical operation is applied in parallel to each bit of the vector. 
The logical value of the result depends only on bit zero. 


TRUE ] 


FALSE 0 
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LNOT 92 


The LOGICAL NOT operator causes all bits of the item on top of the stack to be 
complemented. 


The TAG is unchanged. 


Program Segment: 


REAL 
R] (2,2) 
BOOLEAN 
Bl (2, 3) 
R11 o:= 


1'101110101110110000100011100001110000000110110010"'; 
Bl := NOT BOOLEAN (R1); 


Code Segment: 
VALC (2,2) LNOT NAMC (2, 3) STOD 
Result: 
Before 1''101110101110110000100011100001110000000110110010"'; 
After  1''010001010001011111011100011110001111111001001101"; 
The logical value of B1 is TRUE. 
Program Segment: 
RI (2,2) 
»R2 (2, 3) 
Rl := FALSE; % A WORD OF ALL ZEROS 
R2 := REAL (NOT R1); 
Code String: 
ZERO NAMC (R1) STON VALC (2,2) LNOT NAMC (2,3) STOD 
Result: 


Before: 1''000000000000000000000000000000000000000000000000" 
Afters U'TITVITVVTITTTTVT TT TTTT ITTV TTD T TTT Tadd ddd" 


Nee ee ern emneenie ie iaremessietiamsesimementne suammemneenmmmmimnoadnenemenncnm name enrmieemmmecmonmemntsitmmmemenemcneninees armen er 
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The logical value of R2 is TRUE. 
The above example is functionally the same as the commonly used: 


R2 := REAL (NOT FALSE); 


Tn ae esanenssammenemmenbanemmmimnebenimmnmmnemmentmemne eeeeciemanmesteciemrin aamarammiesiiet munirirematoriecerabuerr mentee ace er ame renee 
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LAND 90 


Logically ANDs the two items on top of the stack. 

The result is left on top of the stack. 

The TAG is double-precision if the result is double. 

The TAG is the same as the TAG of the second item in the stack. 


The truth table for LAND is as follows: 


Copyright © 1986 Jaseph & Cogan Associates, /nc. 


Burroughs Company 


Oe AE RN ee RR eS RS 


PAGE 249 


Program Segment: 


Rl 3= 

1010000 100111111101010101000111111000011110001101"'; 
R2 := 
1''101000101000010101000111111000101010000111000110"'; 


R3 := REAL (BOOLEAN (R1) AND BOOLEAN (R2)); 
Code String: 
VALC (R1) VALC (R2) LAND NAMC (R3) STOD 


Results: 


Ri:  1''010000100111111101010101000111111000011110001101" 
R2: 1''101000101000010101000111111000101010000111000110" 


After: 000000100000010101000101000000 1010000001 10000100 


The logical value of R3 is FALSE. 
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LOR 91 


Logically ORs the top two items in the stack. 

The result is left on top of the stack. 

If the result is double-precision the TAG is double. 

Otherwise the TAG is the same as the second item in the stack. 


The truth table for LOR is as follows: 


keen Fa A RCS SOROS ESPESDPSD 9A SSC ECDSA AVON POSER, tn Athan MAASAI PEW Re A mec pm Donia copa SA A sven Al mit ea 
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Program Segment: 


Rl := 
1''O10000100111111101010101000111111000011110001101''$s 
R2 := 
1" 101000101000010101000111111000101010000111000110"'; 


R3 := REAL (BOOLEAN (R1) OR BOOLEAN (R2)); 
Code String: 

VALC (R11) VALC (R2) LOR NAMC (R3) STOD 
Results: 


Rl:  1"%010000100111111101010101000111111000011110001101" 
R2:  1''101000101000010101000111111000101010000111000110"' 


After: 1110001011111 117101010111111111111010011111001111 


The logical value of R3 is TRUE. 
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LEQV 93 


The result of the logical equivalence of the top two items on the stack is 


performed. 
The result is left on top of the stack. 
If the result is double-precision the TAG is double. 


Otherwise the TAG is the same as the second item on the stack. 


The truth table for LEQV is as follows: 
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Program Segment: 


REAL 
R1 
»R2 
»R3 


> 


Rl 3:= 
1010000 100111111101010101000111111000011110001101"'; 
R2 := 
1''101000101000010101000111111000101010000111000110''; 


R3 := REAL (BOOLEAN (R1) EQV BOOLEAN (R2)); 
Code String: 
VALC (R1) VALC (R2) LEQV NAMC (R3) STOD 


Result: 


Ri: 1"010000100111111101010101000111111000011110001101"' 
R2: 1''1010001010000101010001111110001010100001 11000110" 


After:- 00011111000001011T101101000000101101100110110100 


The logical value of R3 is FALSE. 
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_ 
EXCLUSIVE OR Ns 


There is no processor operator that performs the EXCLUSIVE OR operation. 
The following simulates this function using the logical operators already discussed. 


The truth table for EXCLUSIVE OR is as follows: 
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Program Segment: 


R13: 
1 
R2 := 
1''101000101000010101000111111000101010000111000110''; 
R3 := REAL (NOT (BOOLEAN (R1) EQV BOOLEAN (R2))); 


Code String: 


VALC (R1) VALC (R2) LEQV LNOT NAMC (R3) STOD 


Results: 


RI: 10 10000100111111101010101000111111000011110001101" 
R2: 1"101000101000010101000111111000101010000111000110" 
EQV ----- worn n nn nnn nnn nnn one - = ----- === - 
Temp: 000111110000010111101101000000101101100110110100 
LNOT 90 ------------------------------------------------ 
After: 111000001111101000010010111111010010011001001011 


The logical value of R3 is TRUE. 


he set ei aA PSNR Eh A Pe RAAT nr ESO hn SES PD DE SA: ch EPS SY 7S SSE EE th RAST SR nN SE TAP Ata PN TPE 
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RELATIONAL OPERATORS 


The relational operators algebraically compare the numeric value of the top two 
operands on top of the stack. 


The result is left on top of the stack. 


The form of the result is a BOOLEAN. 


BIT ZERO 
1 = TRUE wt 


FALSE eo 


0 


All other bits of the result are 0. Lo 
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The logical SAME operators actually performs the function of logical operators. 
The top two items in the stack are compared bit by bit for equal. 

All bits are compared in parallel. 

The result is left on top of the stack. 

The result is a BOOLEAN. 

lf all bits are the same, the result is TRUE. 


If all bits are not the same, the result is FALSE. 


9 paneer 5 FO eR cht SELES AE ra EASA 7 tt ee nr sr RNP NY SS ASAE REESE ARAMA ASTRA eho aon 5 bar DCA NTE ec ROR I 
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Program Segment: 


REAL 
R1 
»R2 


e 


BOOLEAN 
Bl 


Bl := RI IS R23 
Code Stream: 


VALC (R1) VALC (R2) SAME NAMC (B1) STOD 


Result: 


Ri: 1'010000100111111101010101000111111000011110001101"' 
R2: 17101000 101000010101000111111000101010000111000110"' 
SANE. (SRS eS Se Sees esa Sees Sea oS Sere SYR S eae ee re Tees Sra 
After: 000000000000000000000000000000000000000000000000 


The value of B1 is FALSE. 


ATU SN EE ROSSER DE SPHERES I SP TSE SP ASEH meanest sown anspor inh ene SS Dt hen Moron irre SSSR At SR ihe seetthrohi 
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LESS 88 


LESS leaves TRUE result if the second from top-of-stack operand is arithmetically 
less than the top of stack operand and a FALSE result otherwise. 


R1 LSS R2 


LSEQ 8B 


LSEQ leaves TRUE result if the second from top-of-stack operand is arithmetically 
less than or equal to the top of stack operand and a FALSE result otherwise. 


Ri LEQ R2 
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EQUL 8C 


EQUL leaves TRUE result if the second from top-of-stack operand is arithmetically 
equal to the top of stack operand and a FALSE result otherwise. 


Rl EQL R2 


NEQL 8D 


NEQL leaves TRUE result if the second from top-of-stack operand is arithmetically 
not equal to the top of stack operand and a FALSE result otherwise. 


Rl NEQ R2 
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GREQ 89 


GREQ leaves TRUE result if the second from top-of-stack operand is arithmetically 
greater than or equal to the top of stack operand and a FALSE result otherwise. 


Rl GEQ R2 


GRTR 8A 


GRTR leaves TRUE result if the second from top-of-stack operand is arithmetically 
greater than the top of stack operand and a FALSE result otherwise. 


Rl GTR R2 


LEME A GPP TPO NEENEREECA FOCUSES 8 REE =O mCP SS PASE: pA SREP ASR EN VSS sare iene noah rena chp hh fr PORES AGAETca  nAA ACAERRA PSD PY RAR AB SecA Oh eee ee TENA AS ACAA AA 
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LITERAL OPERATORS 


Places a single precision constant on top of the stack. 


ZERO BO 


ZERO leaves on the top of the stack a_ single~precision word with all bits 
initialized to zero. 


Program Segment: 
Rl := 0; 
Code Stream: 


ZERO NAMC (R1) STOD 


ONE B1 


ONE leaves on the top of the stack a 1-bit integer equal to 1. 
Program Segment: 

Rl := 13 
Code Stream: 


ONE NAMC (R1) STOD 
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LTS B2 


Insert 8 bit literals leaves on top of the stack an 8-bit integer that is a copy of 
its one-syllable parameter. 


Program Segment: 

Rl := 100; % R1 = (2,2) 
Code Stream: 

B264 | 5002 B8 

LT8 (100) NAMC (R1) STOD 
LT16 BS 

Insert 16 bit literal) leaves on top of the stack a 16-bit integer that is a copy 
of its two-syllable parameter. 
Program Segment: 

Rl := 4096; % R1 = (2,2) 
Code Stream: 

B31000 5002 B8 


LT16 (4096) NAMC (R1) STOD 
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LT48 BE 


Insert 48 bit literal leaves on the top of the stack a single-precision operand that 
is a copy of its six-syllable parameter. 


Similar to the MPCW operator. 
The parameter (i.e. the 48 bit literal) must start on a word boundary. 
All syllables are ignored between the LT48 operator and its parameter. 
Program Segment: 

R1 := "ABCDEF"; Rl = (2,2) 
Code Stream: 

BEFFFFFFFFFF C1C2C3C4C5C6 5002 B8 


LT48 (vapcver") NAMC (R11) STOD 
/ 
if 
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BRANCHING OPERATORS 


Provide for altering the processor's sequence through the code stream. 
Branches may be conditional or un-conditional. 


May be static or dynamic. 
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STATIC BRANCHES 


A two-syllable parameter designates the PWIPSI within the current segment. 
Branching may only occur within the same code-segment (SDI). 


PS| 


[15:03] 


PWI 


[12:13] 


Example: 
Value PW! : PSI 


6005 5 3: 3 
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BRUN A2 


Processor registers PSI and PWI are set from the parameter. 


The code-stream transfers to the next operator in that code segment. 


GO TO XIT 


Copyright © 1986 Joseph & Cogan Associates, Inc. 


Burroughs Company 


PAGE 268 
BRTR At 


The top-of-stack item is interpreted as a BOOLEAN value. 


Ay 
lf the logical value is FALSE: we 
PWI:PSI are set to the next operator. 
on / ? 
Sequential processing continues. | Kp | jk f 
_ W/ ALA - 


Fall through. ae | aot" ‘) 


Das 
~ ¥NS of 
If the logical value is TRUE: P as 
PWI:PSI are set to parameter values. 
The processor begins execution at that point in the code-stream. 


Actual branch occurs. 
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BRFL. AO 


The top-of-stack item is interpreted as a BOOLEAN value. 
If the logical value is TRUE: 

PWI:PS!I are set to the next operator. 

Sequential processing continues. 


Fall through. 


If the logical value is FALSE: 
PWI:PSI are set to parameter values. 
The processor begins execution at that point in the code-stream. 


Actual branch occurs. 


26 NS red SREP GTB EFORCE SAS SSE A NESS RH OE VPN Sp pS PRP POU PO a EES 
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STATIC BRANCH EXANMIPLES 


Program Segment: 


RI (2,2) 
»R2 (2, 3) 
»R3 (2,4) 


(2,5) 


w 


253 
353 


IF (B := R1 GTR R2) 


R2 


— 
eo 
7] 


po] 
It 


R33 
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Code Stream: 


[F (B := R1 GTR R2) THEN 


VALC (R1) VALC (R2) GRTR NAMC (B) STON BRFL 7:3 


32432 1002 1003 8A 5005 B9 A06007 


VALC (R2) NAMC (R1) STOD  BRUN 8:2 


3:6: 1 1003 5002 B8 A24008 


VALC (R3) NAMC (R1) STOD 


33733 1004 5002 B8 
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Program Segment: 


RI (2,2) 
,R2 (2,3) 
»R3 (2,4) 


B (2,5) 


IF NOT (B := R1 GTR R2) 


Rl := R2 


wa 
i] 


R33 
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Code Stream: 


IF NOT (B := R1 GTR R2) THEN 


VALC (R1) VALC (R2) GRTR NAMC (B) STON BRTR 7:3 


32432 1002 1003 8A 5005 B9 A06007 


VALC (R2) NAMC (R1) STOD  BRUN 8:2 


3:6:1 1003 5002 B8 A24008 
os eh sat ag Ses oe eee ee eed ears a eel ils ate 
ELSE 
Rl 3:= R3; 
VALC (R3) NAMC (R1) STOD = 

"33733 1004 5002 B8 
i ee st tt ot oe ae ea! 
3:8:2 
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DYNAMIC BRANCHES 


The top-of-stack item contains the code-stream pointers. 
The branch may with the current segment or a different segment. 


IRW chaining will occur if the item on top of the stack is an NIRW (IRW on 
non-EMODE). 


If the target is a PCW: 
SDI:PWIi:PSI are set from the PCW. 
The LEX level in the PCW must be the same as the current LEX level (LL). 


The control state indicator is ignored. 


Neen nn ee nee emnenalskamesmamtmanteeneetemaseearaeenciedanee "aeons anes ames ceaneorne sn omae once ces 7a ano ca oo hor cece oe ne nn a a aes 
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DYNAMIC BRANCH TARGETS 


If the target is an operand: 
integerized. 
Rounded. 
Uses a 14 bit integer. 


[15:02] = Ignored 


[13:13] = PWI (note awkward shape of field) 
[00:01] = PSI indicator: 
If this bit is on, 
PSI := 3, 
else 
PSI := 0 


Example: 


Value PWI : PSI 
0015 A 3 


The operand form is typically used in the CASE statement. 


DB AA V4 cord Hone) 


a a EEE AL AOE TEAS A EY SRE A ORAZ SS SPE ORES pr PESDY TAAar AEATS irP.  s + tAr e pR PR SE SNT 
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DYNAMIC BRANCH EXAMPLE 


77 | PIC 9 (11) BINARY. 


PAR-A-SEC SECTION. 
PAR-A. 
PERFORM PAR-B-SEC. 


MPCW BF 3:4:0 
LT8 B2 O4 
NAMC 5OIA (2, 1A) 
DBUN AA 
STOP RUN. 


PAR-B-SEC SECTION. 
PAR-B. 
MOVE 1 TO |. 


NAMC (1) 5005 (2,5) 


If the PERFORM target paragraph was in the same 


been used. 


(AM Al A RENESAS 


| = (2,5) 


Ww Www Ww Ww Www 
OMnD OW” Ww 


PCW = @ (2, 1A) 


. an ee 
Ww Ww Ww 
NOU Wn 


ror 
ew 


a a 
WO tn 
Wm ew own Fw 
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WORD MANIPULATION OPERATORS 


Provide the capability to alter any partial field of a word in the stack. 


Basic elements. ee : 
st pakbof - uf ¢ Fo by 
Destination word. 
Source word. ato o,f lof f fra b, is " 


Number of bits to transfer. 
Field bits. 
Destination start bit ("to" bit). 
Source start bit ("from" bit). 
The altered, destination item is left on top of the stack. 
If the source is double-precision the second word (LSP) is discarded. 


If the destination is double-precision the first word is altered, the second word 
remains unchanged. 


Static and dynamic operators. 

Static operators obtain the following values from the parameter: 
Source start bit. 
Destination start bit. 
Number of bits to transfer. 


Dynamic obtain its these values from items on top of the stack. 


A ated SM A A SARC CGA 2POEPOVO RL VP PS PP cP SSS STS inci SSA 2A 7S A PEE MRP ARATE EERIE TNE DE ET TT SEE PTT 
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BSET 96 


Bit set initializes a destination bit to 1. 


—_ 


The destination bit is specified by the parameter. 
The destination is the word on top of the stack. 
The result is left on top of the stack. 
Program Segment: 
R1.(036:1] := 1; @ Rl = (2,F) 
Code Stream: 
1O0F 9624 500F B8 


VALC (R1) BSET (36) NAMC (RI) STOD 


DBST 97 


Dynamic bit set is functionally the same as the BSET operator. 
The destination bit is the item on top of the stack. 
The destination word is the second item on top of the stack. 
The result is left on top of the stack. 
Program Segment: 

RI.[CBIT: 1] := 1; RI = (2,2F), BIT = (3,7) 
Code Stream: 

102F 3007 97 502F B8 


VALC (R1) VALC (BIT) DBST NAMC (RI) STOD 


Caen ac oiescmemnesmieamnimerieieamemmmemesnnmeeementiealaumuesaummemmnsiaiemeamonnmesnimmrermmtmenmnemmamammeneaemeteaneemeaeeatemeant ene eamenee nena 
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BRST 9E 


Bit reset initializes a destination bit to 0. 
The destination bit is specified by the parameter. 
’ The destination is the word on top of the stack. 


The result is left on top of the stack. 


DBRS 9F 


Dynamic bit is functionally the same as the BRST operator. 
The destination bit is the item on top of the stack. 
The destination word is the second item on top of the stack. 


The result is left on top of the stack. 


Ro Lt Re RR CEES tC 
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ISOL 9A 


Field isolate: 
initializes a single precision destination word to zero. 


Sets its low order field from a field in the source. 


The source start bit is the first parameter. 
The number of bits to isolate is the second parameter. 
The destination start bit is calculated as follows: 
destination start bit = number of bits to transfer - 1. 

Program Segment: 

|.[47:08] % | = (2,7) 
Code Stream: 

VALC (1) ItSOL 47:08 


1007 9A2F08 


Source start bit: 47 

raja! 
Destination start bit: 07 “(~~ ( 
Number of bits: 08 


The result is left on top of the stack. 
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DISO 9B 


The dynamic field isolate is functionally the same as the ISOL operator. 
The initial stack state is as follows: 

Number of bits. 

Source start bit. 

Source item. 
The result is left on top of the stack. 


Program Segment: 


REAL 
R1 (2,2) 
»R2 (2, 3) 
»R3 (2,4) 
Rl := 100; 
R2 := 47; 
R3 := 08; 
R1 := R1.[R2:R3]3 
Code Stream: 
VALC (R1) VALC (R2) VALC (R3) DISO NAMC (RI) STOD 
1002 1003 1004 9B 5002 B8 


A A SR a RRA EERE BPO PARSER etre ESP ESR Fr eh RS yA NTA VON BAA EUG Ot Ne AER SATIS ASAET ESSA CERT EEE TS SS SASSANID SN IEE I 
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INSR 9C 


The field insert sets a field of the destination from the low order field of the 
source. 


The initial stack state: 
Source item. 
Destination item. 
The destination start bit is the first parameter. 
The number of bits is the second parameter. 
The source start bit is calculated as follows: 
Source start bit = number of bits - 1 
Program Segment: 
RI (2,2) 
,»R2 (2, 3) 
R1.[47:08] := R2; 
Code Stream: 


VALC (R1) VALC (R2) INSR 47:08 NAMC (R1) STOD 


1002 1003 9C2F08 5002 B8 
Source start bit: 07 
Destination start bit: 47 
Number of bits: 08 


The result is left on top of the stack. 
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The dynamic field insert is functionally the same as the INSR operator. 


The initial stack state is as follows: 


The result is left on top of the stack. 


Source item. 


Number of bits. 


Destination start bit. 


Destination item. 


Program Segment: 


Code 


4 AA a RA NB AA EE 


100; 
47; 
08; 


a 
No 
iow 


R1.[R2:R3] := R13 


Stream: 


VALC (R1) VALC (R2) VALC (R3) 


1002 1003 1004 
DINS NAMC (R1) STOD 


9B 5002 B8 


(2,2) 
(2; 3) 
(2,4) 


VALC (R1) 


1002 
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Field transfer sets a field of the destination from a field of the source. 
The initial stack state. 
Source item. 
Destination item. 
Parameter values. 
Destination start bit. 
Source start bit. 
Number of bits. 
The result is left on top of the stack. 


Program Segment: 


REAL 
Rl (2,2) 
»R2 (2,3) 
»R3 (2,4) 
Rl := R2 & R3 [47:35:08]; er Ros uA ; ab thr yes : | 
jyro e - c | 
Code Stream: - ot 
VALC (R2) VALC(R3) FLTR 47:35:08 NAMC (RI) STOD prt 
1003 1004 982F2308 5002 B8 


02 Pa ECPM TSP SS RE S/F SES up Enh Par RSV AR WWE =P SSP RN SES ESRC aE er SN I SSUES SN EY 
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The dynamic field transfer is functionally the same as the FLTR operator, except 
the parameters are located on top of the stack. 


The initial stack state. 


Number of bits. 
Source start bit. 
Destination start bit. 
Source item. 


Destination item. 


The result is left on top of the stack. 


Program Segment: 


Code 


REAL 
RI (2, 2) 
,R2 (2, 3) 
»R3 (2,4) 
»R4 (2,5) 
»R5 (2,6) 
»R6 (2,7) 


Rl := R2 & R3 [R4:R5:R6]; 
Stream: 
VALC (R2) VALC (R3) VALC (R4&) VALC (R5) VALC (R6) 


1003 1004 1005 1006 1007 


DFTR NAMC (RI) STOD 


99 5002 B8 


Copyright © 1986 Joseph & 


Cogan Associates, Ine. 


Burroughs Company 


PAGE 286 


STACK STRUCTURE 


Provide procedure entry and exit. 

Sets, saves, and restores processor state components. 

Maintains linkage of activation records, both historical and lexical. 
Display update required upon procedure exit or entry. 


Display update is terminated when looping through decreasing lexical levels by the 
following: 


The new value for DL] is the same as the current. 


The environment number (i) is less than the previous value of LL. 


AOE RO RTE TREES AE Sree SSE SOAPS SSE SPAS PgR ES a SE SSP ren SSS ri FRASER REA A SMR RRA AS hie SE At LE RAY WP WA 
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MIKST AE 


Mark stack builds an inactive MSCW (Mark Stack Control Word) on top of the 
stack. 


Inserted at the head of the historical chain. 


The difference between the current location of the MSCW and F is calculated (S + 
1 ~- F). 


This difference is inserted in the HISTORY_LINK field of the MSCW. 


MIKSN DF 


The mark-stack bound to name-call is functionally equivalent to the MKST operator. 
The operator immediately following the MKSN must be a NAMC. 
Observance to the MKSN rules is critical. 


E-IMODE operator. 
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ENTR AB 


The enter operator completes the procedure entry process. 

Assumes prior execution of MKST. 

Inactive MSCW must be at F. 

F + 1 must be a PCW after IRW chaining. 

Completes the MSCW. 
Inserts MSCW at the head of the appropriate lexical chain. 
The LL field is filled with the LL field of the PCW. 
The MSCW is marked as entered. 

Constructs an RCW. 
Saves the current processor code-stream pointer. 
Saves BOOLEAN se duietOus 
LL set to the current LL prior to procedure entry. 


CS (control state) set to the value in the PCW. 


Initializes processor state for the procedure being entered. 
Code-stream pointer. 
Addressing environment. 


Transfers control to the code-stream pointers set from the PCW. 
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EXIT AS 


The EXIT deletes the topmost activation record from the stack. 
Returns execution to the prior activation record. 
S is set to DILL] - 1. 
F is set to the location referenced by: 
Current F - MSCW.historylink 

The following registers are set from the fields in the RCW: 

LL 

Boolean processor accumulators: TFFF, OFFF 

CS (control state) 

Processor code-stream pointers (SDI:PWI:PSI) 


Control is transferred to the code-stream pointed to by the RCW. 
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RETN A7 eb Ug. 

yn’ fr fe 
ane! 


hl" 


The RETURN operator is exactly the save as EXIT, except: Go 
The top-of-stack item is retained. 


The returned item is placed onto the top of the stack after the top most 
activation record is deleted. 


Nemes 20 nr EER NE 
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The move to stack changes the processor's site of activity by deactivating the 
current stack and activating a destina- tion stack. 


A new memory addressing environment is established. 
A TOSCW is stored at the base of the inactive stack. 


TOSCW of the destination stack used to find the height {S) and the start of the 
historical chain (F). 


The TOSCW is sufficient by itself to activate the stack. 


Single precision top_of_stack item used as the destination stack number. 


[23:12] Destination environment number. pans oN 
[11:12] Destination stack number. 
Restores the stack state. 
BOSR := Stack descriptor.address. 
LOSR := Stack descriptor.length + BOSR. 
S = TOSCW.stack_height + BOSR. 
F = S - TOSCW.SF_displacement. 


Updates the LEXICAL environment state. 


CAC 3! Sg ERC ARECACEAE ROC STAC PSP ST = PCS RAY YA NT PPE at ASD SRR A AINA SITET ARR ADP RAY eA EDDA! # Ward EBOAAM NDNA A EEDA Cee 
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POINTER OPERATORS 


Deal with sequences of word or character elements in an array. 
Operations include: 
Scanning 
Comparing 
Transferring 
Editing 
Most pointer operations require initial stack arguments that specify: 
Length 
Source 
Destination 
Source can be an operand. 
Source and dactination pointers can be updated in most operations. 


Length can be updated to reflect the number of items left to process. 
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UNCONDITIONAL TRANSFER 


TUND E6 


Transfer Characters Unconditional Delete transfers a specified number’ of 
characters. 


The initial stack state: 
Length 
Source here Casot \@vw 
‘ ¢ 


Destination a f 


No results are left on the stack. 


TUNU EE 


Transfer characters unconditional update functionally equivalent to the TUND 
operator, except: 


Updated source and destination: pointers are left on the stack. 
No updated length because operation is unconditional. 


Compiler generates DLET if one of the pointers is not required to be updated. 
TWSD D3 


Transfer words delete performs an unconditional transfer, except: 
Length is in units of words. \ : rer” 
\ . DAN 
Actual transfer is word at a time. ae \ 


No result left on top of the stack. | 


TWSU DB 


Transfer words update performs is functionally the same as ‘the TWSD operator 
except: 


The updated source and destination pointers are left on top of the stack. 


AN LN TD 2 TC ESSE I SE re eS SRS TPS SS PPM RS eT A STP SSSAC ae A 
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EXAIVIPLES 


Program Segment: 
REPLACE P BY P2 FOR COUNT; 
Code Stream: 


NAMC (P) LOAD NAMC (P2) LOAD VALC (COUNT) TUND 


Program Segment: 
REPLACE P:P BY P2:P2 FOR COUNT; 
Code Stream: 
NAMC (P) LOAD NAMC (P2) LOAD VALC (COUNT) TUNU 


NAMC (P2) OVRD NAMC (P) OVRD 


Program Segment: 
REPLACE P:P BY P2 FOR COUNT WORDS; 
Code Stream: 
NAMC (P) LOAD NAMC (P2) LOAD VALC (COUNT) TWSU 


DLET NAMC (P) OVRD 
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to 


SCAN OPERATORS 


Character-relative scan operators sequentially compare each source character 


the delimiter character. 


The initial stack state. 
Delimiter. tq Vs, wok tf s ragke tanger na 


Length. 
Source. 
DELETE SCAN OPERATORS | 
x 7 if 
The following operators leave no results on the stack: i ‘a : 
SGTD (95F2) (scan while greater delete) aie + 
we 


SGED (95F1) (scan while greater or equal delete) 
\ 


SEQD (95F4) (scan while equal delete) 


SNED (95F5) (scan while not equal delete) 
| 


ee 


SLED (95F3) (scan while less than or equal delete) 


SLSD (95FO) (scan while less than delete) 


UPDATE SCAN OPERATORS 


The update scan operators are the same as the delete scan operators except: 


Updated length left on the stack. 
Updated source pointer left on top of the stack. 
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EXAIVIPLES 


Program Segment: 
SCAN P FOR 10 WHILE = ' "'; 
Code Stream: 


NAMC (P) LOAD LT8 (10) LT8 ('' '"') SEQD 


Program Segment: 
SCAN P:P FOR COUNT:10 UNTIL =" "'; 
Code Stream: 
NAMC (P) LOAD LT8 (10) LT8 ("' ")  SNEU 


NAMC (COUNT) STOD NAMC (P) OVRD 
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CHARACTER TRANSFER OPERATORS 


Character-relative transfer sequentially compares each source character to the 


delimiter character. 


Each source character that satisfies the relation is transferred to the destination. 


Initial stack state: 
Delimiter 
Length 
Source 


Destination 


CHARACTER TRANSFER DELETE 


The following operators leave no results on the stack: 
TGTD (E2) (transfer while greater delete) 

TGED (E1) (transfer while greater than or equal) 

TEQD (E4) (transfer while equal) 

TNED (ES) (transfer while not equal delete) 

TLED (EB) (transfer while less than or equal) 


TLSD (EO) (transfer while less than delete) 


0 a A LLL TS 
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CHARACTER TRANSFER UPDATE 


The character transfer operators perform a characters transfer except: 
The updated length is left on top of the stack. 
The update source is left on the stack. 


The updated destination is left on the stack. 
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EXAMPLES 


Program Source: 
REPLACE P BY P2 FOR 10 WHILE NEQ '' "'$; 
Code Stream: 


NAMC (P) LOAD NAMC (P2) LOAD LT8 (10) LT8 ("' ") TNED 


Program Source: 
REPLACE P BY P2:P2 FOR 10 UNTIL NEQ " '"'$ 
Code Stream: 
NAMC (P) LOAD NAMC (P2) LOAD LT8 (10) LT8& ("' ") TEQU 


DLET NAMC (P2) OVRD  DLET 
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CHARACTER COMPARE OPERATORS 


Character-sequence compare apply a relational comparison of each source. 


The TFFF boolean accumulator is set to 1 if the relation is satisfied and O if the 
relation fails. 


The initial stack state. 
Length < oaV 
ra i 
bios | a 


Source 1 } 29 cae 
Ci per 
Source2 t CM AN, id \ y 

ih : \ ‘ 


CHARACTER COMPARE DELETE _- Pr 


The following operators terminate when the actual relation is determined. 
No result is left on top of the stack. 

CGTD (F2) (compare characters greater delete) 

CGED (F1) (compare characters greater than or equal delete) 

CEQD (FA) (compare characters equal delete) 

CNED (F5) (compare characters not equal delete) 

CLED (F3) (compare characters less than or equal delete) 


CLSD (FO) (compare characters less than delete) 


CHARACTER COMPARE UPDATE 


The character-sequence compare update operators perform the same as_ the 
character-sequence compare delete operators except: 


Both source pointers are update and left on the stack. 


4 wr \euai 
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EXAIVIPLES 


Program Segment: 
B := P GTR P2 FOR 3; 
Code Stream: 
NAMC (P) LOAD NAMC (P2) LOAD LT8 (3) CGTD 


RTFF NAMC (B) STOD 


Program Segment: 
B := P:P GTR P2 FOR 3; 
Code Stream: 
NAMC (P) LOAD NAMC (P2) LOAD LT8 (3) CGTU 


DLET NAMC (P) OVRD RTFF NAMC (B) STOD 
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EXAMPLES OF COMPILER-GENERATED CODE 


Review the following listing analyzing as many of the constructs that time permits. 


CODESTRING/POINTERS 
CODESTRING/STRINGEX 
CODESTRING/SCANPOINTERS 
CODESTRING/TRANSLATE 
CODESTRING/ACCIDENTAL 
CODESTRING/GOTOSOLVER 
CODESTRING/PASSBYNAME 
CODESTRING/TYPEDPROCEDURE 
CODESTRING/PERFORMS 
CODESTRING/NESTEDPERFORMS 
CODESTRING/WORDTYPES 
CODESTRING/LOWERBOUNDS 
CODESTRING/CASE 


CODESTRING/TADS 
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INTERRUPTS 
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OVERVIEW 


An interrupt is an automatic invocation of an operating system procedure. 
May be invoked by: 

Operators (operator dependent) 

Between operators (external interrupts) 

Any time (alarm interrupts). 


An interrupt causes an MCP procedure (HARDWAREINTERRUPT) whose PCW, or an 
SIRW chain, is located a DLO] + 3. 


The following is the steps to interrupt entry: 
Invoke MKST. : 
Place an NIRW (IRW non-E-MODE) to D[O] + 3. 


Place a variable numbers of words (depending on hardware type) on the 
- Stack. 


Invoke ENTR. 


Interrupts are divided into three classes: 


ODI 
An operator dependent interrupt is invoked directly by the current 
operator to request an MCP service required by the operator or to 
report a programming or operator fault. 

Alarm 
An Alarm interrupt is triggered by hardware fault detection during 
operator execution. 

External 


An External interrupt is invoked between operators to report events 
that are independent of the executing code. 


The optional parameters include: 
; P1 parameter (also called interrupt ID parameter). 
P2 parameter. 


Contents vary depending on type on interrupt. 


_ Sm SO RPP CS EREDAR POET 5 SDC EDS AEP USS SEE SSSR scare uC SCPLCIESNND MAA IR SAARC a anh tA EO AE 
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OPERATOR DEPENDENT 


MICP SERVICE 


Requests for an MCP service that is an extension of the hardware operators. 


PRESENCE BIT 


Used by operators to gain access to a data array or program code-segment that 
is not present in memory. 


Occurs if the presence bit in the data descriptor = 0. 
The P2 parameter is a copy of the data descriptor that caused the interrupt. 


If the descriptor is a COPY descriptor, the address filed contains the memory 
location of the original data descriptor. 


A presence bit interrupt is not generated if the descriptor is a COPY and the 
original descriptor is present in memory. 
(NOTE: Not true on some earlier hardware.) 
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PAGED ARRAY 


Used by pointer operators to indicate an attempt to access beyond the end of the 
array or page. 


Attempt to access a word that has the memory protect bit = 1. 
lf the data array is not segmented an error is generated. 
If the data array is segmented (virtual): 
If at the end of the data segment 
Error condition (Seg Array Err or Paged Array Err) 
Otherwise 
Next array page made resident in memory 
Pointer updated on the stack. 


Return from the interrupt procedure to resume the operator on the next 
page of the array. - 
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BINDING REQUEST 


Generated when IRW chaining produces a data descriptor that has an SIZEF = 7. 
Except EVAL. 


Interpreted by the software. 


STACK OVERFLOW > 


Attempt to add an item on the stack passed the limit. 
S greater than LOSR. 


MGCP attempts to extend the stack and resume processing. 


BLOCK EXIT 


EXIT and RETN operators can generate this interrupt. 


Interrupt generated when attempt to deallocate an activation record that has the 
block_exit bit of the RCW = 1. 


(NOTE: A-Series only) 
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ERROR REPORTING 


Programming, compiler or operator faults. 


INVALID OP 


Generated by execution of NVLD (invalid operator). 
No other operator generates this interrupt. 
Other interrupts that are similar in nature: 
UNDEFINED OPERATOR 
INVALID STACK ARGUMENT 
INVALID ARGUMENT VALUE 
INVALID CODE PARAMETER 
INVALID REFERENCE 
INVALID REFERENCE CHAIN 
INVALID OBJECT 


When an application program encounters an INVALID OP message, it is usually due 
to an application bug such as not having initialized a variable properly. 
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INVALID INDEX 


Attempt to access an array element not within a valid index range for that array. 


MENMIORY PROTECT 


Attempt to write into a memory location that has a memory protected word. 


DIVIDE BY ZERO 


Generated by arithmetic divide operators if the numeric interpretation of the 
top-of-stack operand (the divisor) is zero. 


INTEGER OVERFLOW 


Indicates that an operand required to have an integer value cannot be represented 
as an integer. 
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ALARM 


Alarm interrupts are triggered by hardware fault detection. 


INVALID ADDRESS 


UNCORRECTABLE MEMORY ERROR 


LOOP TIMER 


HARDWARE ERROR 


(Aaa on Na TEAR Dc ASSESS Serr oy ER i SESE SS SYS A SSSA APCS a AT EE US SANTA SD rc AS SR ASAT ap PSNR EP AT SESE ST 
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EXTERNAL 


Reports events that are independent of the executing code stream. 


If in Control State, the EXTERNAL interrupt is normally queued until return to 
Normal State. 


lO FINISH 


Caused by the IO subsystem to report a physical 10 completion. 


Not necessarily generated for each physical 1O complete. 


INTERVAL TIMER 


Periodically set by MCP processor control procedures to enforce task priority. 
Prevents lower priority CPU-bound tasks from maintaining control of the processor. 


System relies on interrupt driven mechanism. 


Burroughs Company 
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PROGRAMMATIC FAULT HANDLING 


Programs can handle various faults and interrupts if they so desire. 
This is done through the use of the ON <fauilt list> statement in ALGOL. 


A program has the ability to continue running after detecting the fault, or 
terminating. 


HISTORY information can be obtained to be used in the fault processing, if desired. 


Example: 

BEGIN 

REAL ARRAY A [0:9]; 

REAL NDX; 

ON INVALIDINDEX, 
BEGIN 
DISPLAY ("INVALID INDEX WHEN NDX WAS: '"' CAT 

STRING (NDX,%*)) ; 

END; 

WHILE TRUE DO 
BEGIN 
A [NDX] := NDX; 
NDX := *.4+ 13 
END; 

END; 


The above program would issue the message: 


INVALID INDEX WHEN NDX WAS: 10 
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PROGRAMIMATIC INTERRUPTS 


It is possible to write software interrupts that can be entered dynamically. 


In other words, at program compilation time, there may or may not be an explicit 
call on the INTERRUPT. 


INTERRUPTs look just like PROCEDUREs, and can be called just like procedures, or 
they can be ATTACHed to an EVENT. 


If ATTACHed to an EVENT, whenever the EVENT is CAWUSEd, the INTERRUPT is 
dynamically entered. 


Example: 


BEGIN 
FILE F; 
REAL RECORD_CNTR; 


INTERRUPT DISPLAY_RECORD_CNTR; 
BEGIN 
DISPLAY ("RECORDS READ = " CAT 
STRING (RECORD_CNTR,*)) ; 
END OF INTERRUPT DISPLAY _RECORD_CNTR; 


ATTACH DISPLAY_RECORD_CNTR TO MYSELF.EXCEPTIONEVENT; 
WHILE NOT READ (F) DO RECORD_CNTR := * + 1; 
END OF PROGRAM. 


While this program is running, doing a “mix nbr>Hi will CAUSE the event 
MYSELF.EXCEPTIONEVENT. The MCP will automatically call the INTERRUPT 
DISPLAY_RECORD_CNTR which will in turn DISPLAY the number of records read 
from file F. 


When DISPLAY_RECORD_CNTR exits, the program will resume processing where it 
was. 


Unless the INTERRUPT informs the program that it has been called, the program 
doesn't even know that an interrupt occurred. 
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PROBLEM ANALYSIS TECHNIQUES 


Recommended steps in using program dump to help resolve program failure. 

Observe MCP release.cycle.patch levels. 

Identify system by using system serial number. 

Notice local box (relate to SUBSYSTEM). 

Review RCW history. 

Record MCP history locations. 
May be useful to determine exactly what MCP was doing. 

Find first USER RCW. 

Notice if this activation record history belongs to another environment. 
Could be LIBRARY call. 

Is this lexical region MCP. procedure HARDWARE INTERRUPT. 

Identify syllable that failed. 

Record P2 parameter. 


May be useful later. 


Reverse from that syllable until location of a statement end syllable. 
STOD 
TUND 
EXIT 

Proceed from the next syllable forward until the operator that failed. 
Build temporary stack of results of re-executing the operators. 


Continue passed operator that failed until statement end. 
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Observe stack cells between next two MSCWs. 
Top stack items could be residual cells from operator that failed. 
PAGED ARRAY error. 
Updated length. 
Updated source pointer. 


Updated destination pointer. 


INVALID INDEX. 
Actual index. 


P2 is descriptor we are trying to index. 
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PROGRAM FAILURE REVIEW 


Review program listings/dumps as outlined by the instructor. 


A CEN I A EG SARS ESAS EE Pa AST SP ERs SAS FEVER SEPERATE SHA a PEAY SASS SSA MEET SATUS DPE TCE PSPS A SE EO ET 


Copyright © 1986 Joseph & Cogan Associates, Ine. 


Burroughs Company 


PAGE 317 


FILE INFORMATION BLOCKS 


Copyright © 1986 Joseph & Cogan Associates, /ne. 
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FIB STRUCTURE 


Label equation block. 


Disk file headers. 


Layout in appendix. 


Buffers. 

1OCB. 

Logical record area. 

Transaction count. 

Physical lO count. 
READS 


WRITES 


A a CLAN ea Se 9 
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SYSTEM SOFTWARE COMPILATION 


A A RSENS 1 eit 
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OVERVIEW 


Periodic requirement to compile environmental software. 
Install patches. 
Install flashes. 
Generate compiled listings. 
Burroughs provides most of the symbolics with software release tapes. 


Can react quickly to install recommended software modifications intended to 
correct environmental software problems. 


System provided WORK FLOW JOB which can compile most all or selected 
software components. 


Refer to appendix for source listing of WFL job. 


Documented in A-SERIES SYSTEM SUPPORT. 
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PATCHESFOR 


PATCHESFOR/ <software item>. 


For 


each <software 


compilation. 


PER A CAPT A 


item> present, 
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the WFL job will execute a _ software 
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OPTIONS 


Module selection options. 
These options are BOOLEAN variables. 
Valid values: 
TRUE 


FALSE 


COMPILE_ALL:=TRUE; 


COMIPILE ALL 


Option allows all of the system software to be compiled regardless if a 
PATCHESFOR files is present. 


FALSE means selective compilation. 


SKIP IF NO SYMBOL 


Software modules are skipped if their corresponding symbol files are not present. 


Can be combined’ with COMPILE_ALL option. 
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REQUIRED FILES 


WFL/COMPILE/SOFTWARE 

SYSTEM/DCALGOL 

PATCHESFOR/ <each software item to compile 
Symbolic file for compilation 


DATABASE/PROPERTIES 


GENERATED FILES 


Code file (for each successful compilation) 
COMPLETED/<software item> 


Symbolic files (only if needed). 
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PROCESS 


Generate PATCHESFOR/<software item> patch files. 
SYSTEM/PATCH format. 

Load symbolic. 

START WFL job. 


Respond to ODT input requests: 


Only required if job not run under privileged usercode. 


insure successful compile: 
COMPLETED/<software item> resident. 
Refer to listing for errors (if any). 


Correct and restart process. 
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A SERIES PROCESSOR OPERATORS 


Burroughs Company 
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BURROUGHS A SERIES PROCESSOR OPERATORS 
Here is a detailed description of the columns used in each of the tables that 
appear on the following pages in this section: 
Mne This is the Mnemonic code given the operator. 
Mode The ''Mode" of the operator: 


<blank> is Primary Mode 


e is Edit Mode; 

t is Table Edit Mode (not a true mode) ; 

Vv is Variant Mode. 
Op The Hexadecimal code for the operator. 
Syls Number of code syllables for the total instruction. 
Function A description of the function of the operator. 


References Page numbers in the Burroughs A-Series System 

Architecture Reference Manual, Volume 2 (Form 

: 5014954, April, 1985) where the operators are 
documented. : 
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OPERATORS LISTED BY MNEMONIC NAME 


Mne 


ADD 
AMA 
AMI 
ASR 
BCD 
BRF 


Mode 


X Vv 
N Vv 


T Vv 


L 


BRTR 


BRS 
BRU 
BSE 
CBO 


T 


N 


T 


N Vv 


CEQD 
CEQU 


CGE 
CGE 
CGT 
CGT 
CHS 
CLE 
CLE 
CLS 
CLS 
CNE 
CNE 
CUI 
DBC 
DBF 
DBR 
DBS 
DBT 
DBU 
DEX 
DFT 
DIN 
DIS 


D 
U 
D 
U 
N 
D 
U 
D 
U 
D 
U 
0 Vv 
D Vv 
L 
S 


T 


R 
N 
| Vv 
R 
S 
0 


DIVD 


DLA 
DLE 
DRN 
DSL 
DSR 


Y V 


T 
T Vv 


F 
F 


DSRR 
DSRS 


DSR 
DUP 
EEX 
END 
END 


T 
L 
| Vv 
E e 
F e 


Op 


80 
958A 
9588 
9580 
9577 
AO 


Al 
QE 
A2 
96 
95BB 
an 
FC 
F I 
F9 
F2 
FA 
BE 
F3 


Syls 


! 
2 
2 
3 
3 
3 
3 
2 
3 
2 
2 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
1 
1 
1 
1 
1 
2 
1 
1 
1 
1 
3 
1 
2 
1 
1 
1 
1 
1 
! 
2 
1 
3 


Function References 
Add 3-007 B-0O7 
Arithmetic Maximum 3-009 B-07 
Arithmetic Minimum 3-009 B-07 
Assert 3-101 B-08 
Binary Convert to Decimal 3-016 B-08 
Branch False 3-049 B-08 
Branch True 3-049 B-09 
Bit Reset 3-022 B-09 
Branch Unconditional 3-049 B-09 
Bit Set 3-022 B-09 
Count Binary Ones 3-021 B-09 
Compare Chars Equal Delete 3-081 B-10 
Compare Chars Equal Update 3-081 B-10 
Compare Chars Greater or Equal Delete 3-081 B-10 
Compare Chars Greater or Equal Update 3-081 B-11 
Compare Chars Greater Delete 3-081 B-11 
Compare Chars Greater Update 3-081 B-11 
Change Sign 3-025 B-11 
Compare Chars Less or Equal Delete 3-081 B-11 
Compare Chars Less or Equal Update 3-081 B-1] 
Compare Chars Less Delete 3-081 B-12 
Compare Chars Less Update 3-081 B-12 
Compare Chars Not Equal Delete 3-081 B-12 
Compare Chars Not Equal Update 3-081 B-12 
Communicate with Universal 1/0 3-099 B-12 
Dynamic Binary Convert to Decimal 3-017 B-13 
Dynamic Branch False 3-051 B-13 
Dynamic Bit Reset 3-022 B-13 
Dynamic Bit Set 3-022 B-1h 
Dynamic Branch True 3-051 B-14 
Dynamic Branch Unconditional 3-050 B-14 
Disable External Interrupts 3-068 B-14 
Dynamic Field Transfer 3-024 B-15 
Dynamic Field Insert 3-024 B-15 
Dynamic Field Isolate 3-023 B-16 
Divide 3-008 B-16 
Delay 3-100 B-16 
Delete Top-of-stack 3-064 B-17 
Dynamic Range Test 3-010 B-17 
Dynamic Scale Left 3-013 B-17 
Dynamic Scale Right Final 3-015 B-18 
Dynamic Scale Right Rounded 3-015 B-18 
Dynamic Scale Right Save 3-014 B-18 
Dynamic Scale Right Truncate 3-014 B-19 
Duplicate Top-of-stack 3-065 B-19 
Enable External Interrupts 3-068 B-19 
End Edit 3-099 B-19 
End Float 3-097 B-20 
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Mne Mode Op Syls Function References 
ENTR AB ] Enter 3-054 B-21 
EQUL 8C ] Equal To 3-009 B-22 
EVAL AC 1 Evaluate 3-038 B-22 
EXCH B6 1 Exchange Top-of-stack 3-064 B-22 
EXIT A3 ] Exit 3-059 B-23 
EXPU DD 1 Execute Sngl Edit Op, Sngl Ptr Update 3-094 B-24 
EXSD D2 1 Execute Single Edit Operator Delete 3-094 B-24 
EXSU DA 1 Execute Single Edit Operator Update 3-094 B-25 
FLTR 98 iF Field Transfer 3-024 B-25 
GREQ 89 1 Greater Than or Equal To 3-009 B-25 
GRTR 8A 1 Greater Than 3-009 B-25 
HALT v 95DF 2 Conditional Processor Halt 3-101 B-26 
HALT e DF ] Conditional Processor Halt 3-101 B-26 
ICLD v 9575 2 Input Convert Left-Signed Delete 3-089 B-26 
iICRD v 9576 2 Input Convert Right-Signed Delete 3-089 B-26 
1 CUD Ak 1 Input Convert Unsigned Delete 3-089 B-26 
ICVD CA 1 Input Convert Delete 3-089 B-27 
CVU CB ! Input Convert Update 3-089 B-27 
IDIV 84 1 Integer Divide 3-008 B-27 
IDLE v 9544 2 Idle Until Interrupt 3-099 B-27 
IMKS CF 1 Insert Mark Stack 3-054 B-28 
INDX A6 ] Index 3-032 B-29 
INOP e D8 1 Insert Overpunch 3-096 B-30 
INSC e ODD 3 Insert Conditional 3-096 B-30 
INSC t ODD hk Insert Conditional 3-096 B-30 
INSG e D9 3 Insert Display Sign 3-096 B-31 
INSR 9C 3 Field Insert 3-023 B-31 
INSU) se) SDC 2 Insert Unconditional 3-096 B-3]1 
INSU t DC 3 Insert Unconditional 3-096 B-31 
INXA E7 3 Index Via Address-Couple 3-033 B-32 
1SOL 9A 3 Field Isolate 3-023 B-32 
JOIN v 9542 2 Set Two Singles to Double 3-020 B-33 
LAND 90 ] Logical And 3-017 B-33 
LEQV 93 1 Logical Equivalence 3-018 B-33 
LESS 88 ] Less Than 3-009 B-33 
LKID v 95B3 2 Read Interlock Status 3-048 B-34 
LLLU wv 95BD 2 Linked List Lookup 3-071 B-34 
LNMC v 958C 4& Long Name Call 3-031 B-35 
LNOT 92 ] Logical Not 3-017 B-35 
LOAD BD ] Load 3-039 B-35 
LODT BC 1 Load Transparent 3-039 B-36 
LODT v 95BC 2 Load Transparent 3-039 B-36 
LOG2 v 958B 2 Leading One Test 3-021 B-36 
LOK v 95BO 2 Lock Interlock 3-047 B-36 
LOKC v 95Bi 2 Conditional Lock Interlock 3-048 B-37 
LOR 91 1 Logical Or 3-018 B-37 
LSEQ 8B ] Less Than or Equal To 3-009 B-37 
LT8 B2 2 insert 8-Bit Literal 3-018 B-37 
LT16 B3 3 Insert 16-Bit Literal 3-018 B-37 
LT48 BE 7-12 Insert 48-Bit Literal 3-019 B-38 
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Mne Mode Op 
LVLC v 958D 
MCHR e D7 
MCHR t D7 
MF LT e Dl 
MF LT t Dl 
MINS e DO 
MINS t DO 
MKSN DF 
MKST AE 
MPCW BF 
MULT 82 
MULX 8F 
MVNU e D6 
MVNU t. D6 
MVST v 9O5AF 
NAMC LO-7F 
NEQL 8D 
NOOP FE 
NOOP v O5FE 
NORM v 958E 
NTGD v 9587 
NTGR 87 
NTIA 86 
NTTD v 9586 
NVLD FF 
NVLD v 9O5FF 
NXLN A5 
NXLV AD 
NXVA EF 
OCRX v 9585 
ONE Bl 
OVRD BA 
OVRN BB 
PACD DI 
PACU D9 
PAUS v 9584 
PKLD v 9573 
PKRD v 9574 
PKUD v 9572 
PUSH By 
RDIV 85 
RDLK v 95BA 
REMC ve 9592 
RETN A7 
RIPS v 9598 
RNGT v 9582 
ROFF D7 
RPRR v_ 95B8 
RSDN v 95B7 
RSNR v 9581 


Syls 


Function 


Long Value Call 

Move Chars 

Move Chars 

Move with Float 

Move with Float 

Move with Insert 

Move with Insert 

Mark-Stack Bound to Name-Cal] 
Mark Stack 

Make PCW 

Multiply 

Extended Multiply 

Move Numeric Unconditional 
Move Numeric Unconditional 
Move to Stack 

Name Call 

Not Equal To 

No Operation 

No Operation 

Normalize 

Integerize Double-Precision Rounded 
Integerize Rounded 

Integerize Truncated 
Integerize Double-Precisiton Truncated 
Invalid Operator 

Invalid Operator 

Index and Load Name 

Index and Load Value 

Index and Load Value Via Addr-Couple 
Occurs Index 

Insert Literal One 

Overwrite Delete 

Overwrite Non-Delete 

Pack Delete 

Pack Update 

Pause Until Interrupt 

Pack Left-Signed 

Pack Right-Signed 

Pack Unsigned 


Push Working Stack Onto Activation Rec 


Remainder Divide 

Read Lock 

Read External Memory Control 
Return 

Read Internal Processor State 
Range Test 

Read and Reset Overflow Flip-Flop 
Read Processor Register 

Rotate Stack Down 

Read Stack Number 
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3-036 
3-097 
3-097 
3-098 
3-098 
3-098 
3-098 
3-053 
3-052 
3-034 
3-007 
3-008 
3-097 
3-097 
3-062 
3-031 
3-009 
3-100 
3-100 
3-008 
3-012 
3-011 
3-011 
3-011 
3-101 
3-101 
3-037 
3-036 
3-037 
3-025 
3-018 
3-043 
3-043 
3-086 
3-086 
3-099 
3-086 
3-086 
3-086 
3-100 
3-008 
3-044 
3-099 
3-061 
3-067 
3-010 
3-070 
3-067 
3-065 
3-066 


fF § §€ € © TF § F FT ft t F £ bt tf § F t £ £ F€ f 8 
MMMM rrr errr rrrerrrr rr rrr PPP PrP rwwwwwwwww 
FEWWWNnNN | —- COO DWWWWO DWOCMOnNNAHAMMM SLE KrwwwwwnH-—-Ooeaodowwwowl Waowwao 


OUoWDdwDoDOIwvowowvwWIWTIWTWWIWIWIOVAOIWIWVIVIIOIWDIWVIIVOIWOITIIVIOVWIWVIOIWTIVIOTOWVWIWVIOOWTWTO Ww 
! 


Copyright © 1986 Joseph & Cogan Associates, /ne. 


Burroughs Company 


Mne 


Mode Op 


D4 
95B6 
95B5 
DE 
Q5A7 


Syls 


NN] DH KH HWNYWDN AH DY HK YND | HH] NYDN D NHN D = | NYDN PND — Ph | MM NY NHN DN DY —| MY NY — NPD — 


Function 


Reset Float Flip-Flop 
Rotate Stack Up 


Read 
Read 
Read 


Tag 
True-False Flip-Flop 
Time of Day Clock 


Indicate Running 
Logical Equality 
Scale Left 

Scale Right Final 
Scale Right Rounded 
Scale Right Save 
Scale Right Truncate 


Scan 
Scan 
Skip 
Skip 
Skip 
Skip 
Scan 
Scan 
Scan 
Scan 
Primi 
Set | 


While Equal Delete 

While Equal Update 

Forward Destination Chars 
Forward Destination Chars 
Forward Source Chars 

Forward Source Chars 

While Greater or Equal Delete 
While Greater or Equal Update 
While Greater Delete 

While Greater Update 

tive Display 

nterval Timer 


String Isolate 


Scan 
Scan 
Scan 
Scan 
Scan 
Scan 


While Less or Equal Delete 
While Less or Equal Update 
While Less Delete 

While Less Update 

While Not Equal Delete 
While Not Equal Update 


Set to Single-Precision Rounded 
Set to Single-Precision Truncated 
Set Double to Two Singles 

Set Processor Register 

Masked Search for Equal 


Skip 
Skip 
Skip 
Skip 


Reverse Destination Chars 
Reverse Destination Chars 
Reverse Source Chars 
Reverse: Source Chars 


Store Delete Via Address-Couple 
Set Tag 


Store Non-Delete Via Address-Couple 


Stuf f 


Store Delete 
Store Non-Delete 
Unconditional Processor Halt 


Subtr 
Scan 
Scan 


act 
While False Delete 
While False Update 
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3-099 B 
3-065 B 
3-021 B 
3-066 B 
3-067 B 
3-070 B 
3-018 B 
3-013 B 
3-015 B 
3-015 B 
3-014 B 
3-014 B 
3-079 B 
3-079 B 
3-079 B 
3-095 B 
3-095 B 
3-095 B 
3-079 B 
3-079 B 
3-079 B 
3-079 B 
3-091 B 
3-068 B 
3-083 B 
3-079 B- 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 
B 


1 
0 6 07 007 0 > oT “= 


3-079 
3-079 
3-079 
3-079 
3-079 
3-011 
3-011 
3-020 
3-069 
3-072 
3-095 
3-095 
3-095 
3-095 
3-042 
3-019 
3-042 
3-032 
3-042 
3-042 
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Mne Mode Op Syls Function References 
SWTID v 95D5 2 Scan While True Delete 3-082 B-69 
SWTU v 95DD 2 Scan While True Update 3-082 B-70 
SXSN D6 1 Set External Sign Flip-Flop 3-068 B-70 
TEED DO ] Table Enter Edit Delete 3-093 B-70 
TEEU D8 ] Table Enter Edit Update 3-093 B-71 
TEQD Ek 1 Transfer While Equal Delete 3-080 B-71 
TEQU EC 1 Transfer While Equal Update 3-080 B-72 
TGED E 1 ] Transfer While Greater or Equal Delete 3-080 B-72 
TGEU EQ ] Transfer While Greater or Equal Update 3-080 B-72 
TGTD E2 1 Transfer While Greater Delete 3-080 B-72 
TGTU EA 1 Transfer While Greater Update 3-080 B-72 
TLED E3 1 Transfer While Less or Equal Delete 3-080 B-72 
TLEU EB ] Transfer While Less or Equal Update 3-080 B-73 
TLSD EO 1 Transfer While Less Delete 3-080 B-73 
TLSU E8 1 Transfer While Less Update 3-080 B-73 
TNED E5 1 Transfer While Not Equal Delete 3-080 B-73 
TNEU ED 1 Transfer While Not Equal Update 3-080 B-73 
TRNS v 9507 2 Translate 3-084 B-74 
TUND E6 1 Transfer Chars Unconditional Delete 3-078 B-75 
TUNU EE ] ‘Transfer Chars Unconditional Update 3-078 B-75 
TWFD v 9502 2 Transfer While False Delete 3-083 B-76 
TWFU v Q95DA 2 Transfer While False Update z 3-083 B-76 
TWOD D4 1 Transfer Words Overwrite Delete 3-090 B-77 
TWOU DC 1 Transfer Words Overwrite Update 3-090 B-77 
TWSD D3 ] Transfer Words Delete 3-090 B-78 
TWSU DB 1 Transfer Words Update 3-090 B-78 
TWTD v 9503 2 Transfer While True Delete 3-083 B-79 
TWTIU v 95DB 2 Transfer While True Update 3-083 B-79 
UNLK v 95B2 2 Unlock Interlock 3-047 B-79 
UPLD v 9570 2 Unpack Left-Signed Delete 3-088 B-79 
UPLU v 9578 2 Unpack Left-Signed Update 3-088 B-79 
UPRD v 9571 2 Unpack Right-Signed Delete 3-088 B-79 
UPRU v 9579 2 Unpack Right-Signed Update 3-088 B-80 
UPUD v 95D1 2 Unpack Unsigned Delete 3-087 B-80 
UPUU v 95D9 2 Unpack Unsigned Update 3-087 B-80 
USND v 95D0 2 Unpack Signed Delete 3-088 B-81 
USNU v 95D8 2 Unpack Signed Update 3-088 B-81 
VALC OO-3F 2 Value Cal] 3-035 B-81 
VARI 95 1 Introduce Variant Operator 3-101 B-81 
WAT | v Q5AL 2 Read Machine Identification 3-066 B-82 
WEMC v 9593 2 Write External Memory Control 3-100 B-82 
WHO | v O54E 2 Read Processor Identification 3-066 B-82 
WIPS v 9599 2 Write Internal Processor State 3-070 B-82 
WTOD v 9549 2 Write Time-of-Day Clock 3-068 B-83 
XTND CE 1 Set to Double-Precision 3-020 B-83 
ZERO BO 1 Insert Literal Zero 3-018 B-83 
ZIC v 9540 2 Zero Interrupt_Count 3-070 B-83 
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OPERATORS LISTED BY MODE AND OPERATOR 
PRIMARY MODE OPERATORS 


Mne Mode Op Syls Function References 
VALC OO-3F 2 Value Call 3-035 B-81 
NAMC LhO-7F 2 Name Call 3-031 B-43 
ADD 80 1 Add 3-007 B-0O7 
SUBT 81 1 Subtract 3-007 B-68 
MULT 82 ] Multiply 3-007 B-4O 
DIVD 83 ] Divide 3-008 B-16 
IDIV 84 1 Integer Divide 3-008 B-27 
RDIV 85 1 Remainder Divide 3-008 B-50 
NTIA 86 1 Integerize Truncated 3-011 B-44 
NTGR 87 1 Integerize Rounded 3-011 B-44 
LESS 88 ] Less Than 3-009 B-33 
GREQ 89 1 Greater Than or Equal To 3-009 B-25 
GRTR 8A 1 Greater Than 3-009 B-25 
LSEQ 8B 1 Less Than or Equal To 3-009 B-37 
EQUL 8C ] Equal To 3-009 B-22 
NEQL 8D 1 Not Equal To 3-009 B-43 
CHSN 8E 1 Change Sign 3-025 B-11 
MULX 8F ] Extended Multiply 3-008 B-40 
LAND 90 ] Logical And 3-017 B-33 
LOR 91 1 Logical Or 3-018 B-37 °* 
; LNOT 92 1 Logical Not 3-017 B-35 
LEQV 93 1 Logical Equivalence 3-018 B-33 
SAME gu 1 Logical Equality 3-018 B-56 
VARI 95 1 Introduce Variant Operator 3-101 B-81 
BSET 96 2 Bit Set 3-022 B-09 
DBST 97 1 Dynamic Bit Set 3-022 B-14 
FLTR 98 rF Field Transfer 3-024 B-25 
DFTR 99 1 Dynamic Field Transfer 3-024 B-15 
1SOL SA 3 Field Isolate 3-023 B-32 
DISO 9B ] Dynamic Field Isolate 3-023 B-16 
INSR 9C 3 Field Insert 3-023 B-31 
DINS 9D ] Dynamic Field Insert 3-024 B-15 
BRST OE 2 Bit Reset 3-022 B-09 
DBRS OF ] Dynamic Bit Reset 3-022 B-13 
BRFL AO 3 Branch False 3-049 B-08 
BRTR Al 3 Branch True 3-049 B-09 
BRUN A2 3 Branch Unconditional 3-049 B-09 
EXIT A3 ] Exit 3-059 B-23 
| CUD A4 1 Input Convert Unsigned Delete 3-089 B-26 
NXLN A5 ] Index and Load Name 3-037 B-45 
INDX A6 ] Index 3-032 B-29 
RETN A7 ] Return 3-061 B-52 
DBFL A8 1 Dynamic Branch False 3-051 B-13 
DBTR A9 1 Dynamic Branch True 3-051 B-14 
DBUN AA 1 Dynamic Branch Unconditional 3-050 B-14 
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Mne Mode 


ENTR 
EVAL 
NXLV 
MKST 
STFF 
ZERO 
ONE 
LT8 
LT16 
PUSH 
DLET 
EXCH 
DUPL 
STOD 
STON 
OVRD 
OVRN 
LODT 
LOAD 
LT48 
MPCW 
SCLF 
DSLF 
SCRT 
DSRT 
SCRS 
DSRS 
SCRF 
DSRF 
SCRR 
DSRR 
ICVD 
ICVU 
SNGT 
SNGL 
XTND 
IMKS 
TEED 
PACD 
EXSD 
TWSD 
TWOD 
S1SO 
SXSN 
ROFF 
TEEU 
PACU 
EXSU 
TWSU 
TWOU 


Op 


Syls 


— 
No NO 
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Function References 
Enter 3-054 B-21 
Evaluate 3-038 B-22 
Index and Load Value 3-036 B-46 
Mark Stack 3-052 B-39 
Stuf f 3-032 B-66 
Insert Literal Zero 3-018 B-83 
Insert Literal One 3-018 B-48 
Insert 8-Bit Literal 3-018 B-37 
Insert 16-Bit Literal 3-018 B-37 
Push Working Stack Onto Aeeiwaticn Rec 3-100 B-50 
Delete Top-of-stack 3-064 B-17 
Exchange Top-of-stack 3-064 B-22 
Duplicate Top-of~-stack 3-065 B-19 
Store Delete 3-042 B-67 
Store Non-Delete 3-042 B-68 
Overwrite Delete 3-043 B-48 
Overwrite Non-Delete 3-043 B-48 
Load Transparent 3-039 B-36 
Load 3-039 B-35 
Insert 48-Bit Literal 3-019 B-38 
Make PCW 3-034 B-40 
Scale Left 3-013 B-56 
Dynamic Scale Left 3-013 B-17 
Scale Right Truncate 3-014 B-57 
Dynamic Scale Right Truncate 3-014 B-19 
Scale Right Save 3-014 B-57 
Dynamic Scale Right Save 3-014 B-18 
Scale Right Final 3-015 B-56 
Dynamic Scale Right Final 3-015 B-18 
Scale Right Rounded 3-015 B-57 
Dynamic Scale Right Rounded 3-015 B-18 
Input Convert Delete 3-089 B-27 
Input Convert Update 3-089 B-27 
Set to Single-Precision Truncated 3-011 B-63 
Set to Single-Precision Rounded 3-011 B-62 
Set to Double-Precision 3-020 B-83 
Insert Mark Stack 3-054 B-28 
Table Enter Edit Delete 3-093 B-70 
Pack Delete 3-086 B-48 
Execute Single Edit Operator Delete 3-094 B-24 
Transfer Words Delete 3-090 B-78 
Transfer Words Overwrite Delete 3-090 B-77 
String Isolate 3-083 B-61 
Set External Sign Flip-Flop 3-068 B-70 
Read and Reset Overflow Flip-Flop 3-070 B-53 
Table Enter Edit Update 3-093 B-71 
Pack Update 3-086 B-49 
Execute Single Edit Operator Update 3-094 B-25 
Transfer Words Update 3-090 B-78 
Transfer Words Overwrite Update 3-090 B-77 


Copyright © 1986 Joseph & Cogan Associates, 


Burroughs Company 


/ne. 


PAGE 334 


Mne Mode Op Syls Function References 
EXPU DD 1 Execute Sngl Edit Op, Sngl Ptr Update 3-094 B-24 
RTFF DE 1 Read True-False Flip-Flop 3-066 B-55 
MKSN DF 1 Mark-Stack Bound to Name-Cal] 3-053 B-39 
TLSD EO ] Transfer While Less Delete 3-080 B-73 
TGED E 1] ] Transfer While Greater or Equal Delete 3-080 B-72 
TGTD E2 ] Transfer While Greater Delete 3-080 B-72 
TLED E3 1 Transfer While Less or Equal Delete 3-080 B-72 
TEQD Eu 1 Transfer While Equal Delete 3-080 B-7]1 
TNED E5 ] Transfer While Not Equal Delete 3-080 B-73 
TUND E6 ] Transfer Chars Unconditional Delete 3-078 B-75 
INXA E7 3 Index Via Address~Couple 3-033 B-32 
TLSU E8 1 Transfer While Less Update 3-080 B-73 
TGEU E9 ] Transfer While Greater or Equal Update 3-080 B-72 
TGTU EA 1 Transfer While Greater Update 3-080 B-72 
TLEU EB ] Transfer While Less or Equal Update 3-080 B-73 
TEQU EC ] Transfer While Equal Update 3-080 B-72 
TNEU ED 1 Transfer While Not Equal Update 3-080 B-73 
TUNU EE ] Transfer Chars Unconditional Update 3-078 B-75 
NXVA EF 3 Index and Load Value Via Addr-Couple 3-037 B-47 
CLSD FO 1 Compare Chars Less Delete , 3-081 B-12. 
CGED Fd ] Compare Chars Greater or Equal Delete 3-081 B-10 
CGTD F2 ] Compare Chars Greater Delete 3-081 B-11 
CLED £3 1 Compare Chars Less or Equal Delete 3-081 B-11 
CEQD Fu ] Compare Chars Equal Delete 3-081 B-10 
CNED F5 ] Compare Chars Not Equal Delete 3-081 B-12 
STAD F6 3 Store Delete Via Address-Couple 3-042 B-65 
STAN F7 3 Store Non-Delete Via Address-Couple 3-042 B-66 
CLSU F8 1 Compare Chars Less Update 3-081 B-12 
CGEU FQ ] Compare Chars Greater or Equal Update 3-081 B-11 
CGTU FA ] Compare Chars Greater Update 3-081 B-11 
CLEU FB 1 Compare Chars Less or Equal Update 3-081 B-11 
CEQU FC 1 Compare Chars Equal Update 3-081 B-10 
CNEU FD 1 Compare Chars Not Equal Update 3-081 B-12 
NOOP FE 1 No Operation 3-100 B-43 
NVLD FF 1 Invalid Operator 3-101 B-45 
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EDIT MODE OPERATORS 


Mne Mode Op Syls Function References 
MINS e DO 2 Move with Insert 3-098 B-39 
MFLT e D1 5 Move with Float 3-098 B-38 
SFSC e D2 ] Skip Forward Source Chars 3-095 B-59 
SRSC e D3 1 Skip Reverse Source Chars 3-095 B-65 
RSTF e D4 | Reset Float Flip-Flop 3-099 B-54 
ENDF e D5 3 End Float 3-097 B-20 
MVNU e D6 ] Move Numeric Unconditional 3-097 B-41 
MCHR e D7 ] Move Chars 3-097 B-38 
INOP e D8 1 Insert Overpunch 3-096 B-30 
INSG e D9 3 Insert Display Sign 3-096 B-31 
SFDC e DA 1 Skip Forward Destination Chars 3-095 B-58 
SRDC e DB 1 Skip Reverse Destination Chars 3-095 B-64 
INSU e DC 2 Insert Unconditional 3-096 B-3) 
INSC e ODD 3 Insert Conditional 3-096 B-30 
ENDE e DE ] End Edit 3-099 B-19 
HALT e DF 1 Conditional Processor Halt 3-101 B-26 
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TABLE EDIT MODE OPERATORS 


Mne Mode Op 


MINS t DO 
MFLT t ODI 
SFSC t D2 
SRSC t D3 
MVNU t D6 
MCHR t_  OD7 
SFDC t DA 
SRDC t OB 
INSU. st DC 
INSC =6©t.= DD 


A CoN CA SOL A AL SS 


Syls 


FwWwWN NN DM DN KY UI Ww 


Function 


Move with Insert 

Move with Float 

Skip Forward Source Chars 

Skip Reverse Source Chars 

Move Numeric Unconditional 
Move Chars 

Skip Forward Destination Chars 
Skip Reverse Destination Chars 
Insert Unconditional 

Insert Conditional 
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3-098 B-39 
3-098 B-38 
3-095 B-59 
3-095 B-65 
3-097 B-41 
3-097 B-38 
3-095 B-58 
3-095 B-64 
3-096 B-31 

B- 30 


3-096 
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VARIANT MODE OPERATORS 


Mne Mode Op Syls Function References 


ZIiC v 9540 2 Zero Interrupt_Count 3-070 B-83 
RUN | v 9541 2 Indicate Running 3-070 B-55 
JOIN v 9542 2 Set Two Singles to Double 3-020 B-33 
SPLT v 9543 2 Set Double to Two Singles 3-020 B-63 
IDLE v 9544 2 Idle Until Interrupt 3-099 B-27 
SINT vi 9545 1 Set Interval Timer 3-068 B-60 
EEX| v 9546 2 Enable External Interrupts 3-068 B-19 
DEX|I v 9547 2 Disable External Interrupts 3-068 B-14 
WTOD v 9549 2 Write Time-of-Day Clock 3-068 B-83 
CUIO v 9540 2 Communicate with Universal 1/0 3-099 B-12 
WHO | v Q5LE 2 Read Processor Identification 3-066 B-82 
UPLD v 9570 2 Unpack Left-Signed Delete 3-088 B-79 
UPRD, v 9571 2 Unpack Right-Signed Delete 3-088 B-79 
PKUD v 9572 2 Pack Unsigned 3-086 B-50 
PKLD v 9573 2 Pack Left-Signed 3-086 B-49 
PKRD v 9574 2 Pack Right-Signed 3-086 B-49 
ICLD =6v 9575 2 Input Convert Left-Signed Delete 3-089 B-26 
ICRD v 9576 2 Input Convert Right-Signed Delete 3-089 B-26 
BCD v 9577 3 Binary Convert to Decimal 3-016 B-08 
UPLU  v 9578 2 Unpack Left-Signed Update 3-088 B-79 
UPRU v 9579 2 Unpack Right-Signed Update 3-088 B-80 
DBCD v 957F 2 Dynamic Binary Convert to Decimal 3-017 B-13 
ASRT v_ 9580 3 Assert 3-101 B-08 
RSNR v_ 9581 2 Read Stack Number 3-066 B-54 
RNGT v 9582 4& Range Test 3-010 B-53 
DRNT v 9583 2 Dynamic Range Test 3-010 B-17 
PAUS v 9584 2 Pause Until Interrupt 3-099 B-49 
OCRX v 9585 2 Occurs Index 3-025 B-47 
NTTD v 9586 2 Integerize Double-Precision Truncated 3-011 B-44 
NTGD v 9587 2 Integerize Double-Precision Rounded 3-012 B-44 
AMIN v 9588 2 Arithmetic Minimum 3-009 B-07 
AMAX v 958A 2 Arithmetic Maximum 3-009 B-07 
LOG2 v 958B 2 Leading One Test 3-021 B-36 
LNMC v 958C 4& Long Name Cal] 3-031 B-35 
LVLC v 958D 4& Long Value Call 3-036 B-38 
NORM v 958E 2 Normalize 3-008 B-43 
REMC v 9592 2 Read External Memory Control] 3-099 B-51 
WEMC v 9593 2 Write External Memory Control 3-100 B-82 
RIPS v 9598 2 Read Internal Processor State 3-067 B-52 
WIPS v 9599 2 Write Internal Processor State 3-070 B-82 
WAT | v Q95AK 2 Read Machine Identification 3-066 B-82 
RTOD v 95A7 2 Read Time of Day Clock 3-067 B-55 
MVST v 95AF 2 Move to Stack 3-062 B-42 
LOK v 95BO0 2 Lock Interlock 3-047 B-36 
LOKC v 95B1 2 Conditional Lock Interlock 3-048 B-37 
UNLK v 95B2 2 Unlock Interlock 3-047 B-79 
LKID v 95B3 2 


Read Interlock Status 3-048 B-34 
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Mne Mode Op Syls Function References 
STAG v 95B4 2 Set Tag 3-019 B-66 
RTAG v 95B5 2 Read Tag 3-021 B-55 
RSUP v 95B6 2 Rotate Stack Up 3-065 B-54 
RSDN v 95B7 2 Rotate Stack Down 3-065 B-54 
RPRR v 95B8 2 Read Processor Register 3-067 B-53 
SPRR v 95B9 2 Set Processor Register 3-069 B-64 
RDLK v 95BA 2 Read Lock 3-044 B-5) 
CBON v 95BB 2 Count Binary Ones 3-021 B-09 
LODT v 95BC 2 Load Transparent 3-039 B-36 
LLLU vy 95BD 2 Linked List Lookup 3-071 B-34 
SRCH v 95BE 2 Masked Search for Equal 3-072 B-64 
STOP v 95BF 2 Unconditional Processor Halt 3-101 B-68 
USND v 95D0 2 Unpack Signed Delete 3-088 B-81 
UPUD v 95D1 2 Unpack Unsigned Delete 3-087 B-80 
TWFD =v 95D2 2 Transfer While False Delete 3-083 B-76 
TWTD v 95D3 2 Transfer While True Delete 3-083 B-79 
SWFD v 95D4 2 Scan While False Delete 3-082 B-69 
SWTD v 95D5 2 Scan While True Delete 3-082 B-69 
TRNS v 95D7 2 Translate 3-084 B-74 
USNU v 95D8 2 Unpack Signed Update 3-088 B-81 
UPUU v 95D9 2 Unpack Unsigned Update 3-087 B-80 
TWFU v 95DA 2 Transfer While False Update ° 3-083 B-76 
TWTU v 95DB 2 Transfer While True Update 3-083 B-79 
SWFU v 95DC 2 Scan While-False Update : 3-082 B-69 
SWTU v 95DD 2 Scan While True Update 3-082 B-70 
SHOW v 95DE 2 Primitive Display 3-091 B-60 
HALT v 95DF 2 Conditional Processor Halt 3-101 B-26 
SLSD v 95FO 2 Scan While Less Delete 3-079 B-62 
SGED vo Q5F1I 2 Scan While Greater or Equal Delete 3-079 B-59 
SGTD v 95F2 2 Scan While Greater Delete 3-079 B-59 
SLED vi 95F3 2 Scan While Less or Equal Delete 3-079 B-61 
SEQD v Q5FL 2 Scan While Equal Delete 3-079 B-58 
SNED vi Q5F5 2 Scan While Not Equal Delete 3-079 B-62 
DLAY v Q5F6 3 Delay 3-100 B-16 
SLSU v 95F8 2 Scan While Less Update 3-079 B-62 
SGEU v 95FQ9 2 Scan While Greater or Equal Update 3-079 B-59 
SGTU v 9Q5FA 2 Scan While Greater Update 3-079 B-59 
SLEU v 95FB 2 Scan While Less or Equal] Update 3-079 B-61 
SEQU v 95FC 2 Scan While Equal Update 3-079 B-58 
SNEU v 95FD 2 Scan While Not Equal Update 3-079 B-62 
NOOP v 95FE 2 No Operation 3-100 B-43 
NVLD v Q5FF 2 Invalid Operator 3-101 B-4&5 
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The following questions relate to the ALGOL compiler. 


1. How many bits in a WORD? 


2. How many bits in a BYTE? 


3. How many bytes in a WORD? 


4. What is the Decimal value of Hexadecimal A27? 


5. What is the purpose of the Tag? 


6. Can data be normally stored into an odd Tag word? 


7. Each program has two basic STACK structures. 
which contain data; 


which contain code. 


8. Solve the following Hexadecimal operations: 


A3h 1000 
+ 3BC = VEER 


A a TERE eR NPS es eR So SS Sh SR AE SS a NAEP PES pe ASAE SERRATE TARE So PP A 
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9. Can an ALGOL identifier begin with a number? 


10. What is the purpose of the EXPONENT field in a floating point WORD (type 
REAL)? 


11. What is the difference between INTEGER and REAL words? 


12. Logical operators OR, AND, and NOT operate only on bit 0. 


TRUE FALSE 
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13. This question has two parts: 


(a) What will the following literals produce? 
Show your answer as though the value had been stored in a 
single-precision variable (e.g. REAL X;). 


For Example: 
8" ABCDEF"! 


4"C1C2C3C4C5C6" 


8''CAB"! 


80''CAB" 


480"C3C1C2" 


(b) In the third part of (a) above, what does the 480 before the quoted 
literal mean? 


14. Which of the following statements valid? 
Note: DONE is a BOOLEAN variable. 


(a) IF DONE 
THEN 
ELSE 
VAL:=0;3 


(b) 1F DONE THEN; 


eA BOP AL NCEE ESTOS PUREST EO PS SESS SS SS -S SAE -PPPE SE A  E-PS TBEPPE=2 I TS PE PD PO EE SUCCES SEE? SY SASS uh CAPAC SA SEARED AE A 
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15. Give an example of an explicitly numbered CASE statement. 


16. Give an example of an implicitly numbered CASE statement. 


17. What will happen to a program that executes a CASE statement that has an 
arithmetic expression for the argument that is not within the range of any of the 
specified cases. 
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18. Give an example of a BAD GO TO. 


19. Must the lower bound of an ARRAY always be ZERO? 
20. What is the function of the following: 


TRUTHSET 


TRANSLATETABLE 
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21. What is the purpose of the VALUE arithmetic REAL intrinsic function? For 


example, VALUE (TERMINATED). 


22. What is a FIB and what is it used for? 


23. Which 1/O type is usually more efficient? 


SEQUENTIAL RANDOM 


24. What will ALO] contain after execution of each of the following REPLACE 


statements: 
REAL 1!3 
fr=kcy"; 


a) REPLACE POINTER(A) BY | FOR 1; 


b) REPLACE POINTER(A) BY |!.[7:48] FOR 1 


25. What is the difference between FORMAL and ACTUAL. parameters? 


26. Can a PROCEDURE be passed as a parameter to another PROCEDURE? 
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27. What happens when an expression is passed as a "call by name" parameter? 


28. What is the purpose of LEXICOGRAPHIC (LEX) levels? 


29. What LEX level will a procedure run at? 


30. Will a procedure always run at a LEX level higher than the caller? 


31. What is the purpose of the MCP procedure BLOCKEXIT? 


32. What is the purpose of the SHARING dollar card option? 


33. Give an example of an indirect LIBRARY procedure call. 
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34. What statements cause an INDEPENDENT process to be invoked? 


35. What statements cause a DEPENDENT process to be invoked? 


36. What is a PIB and what is it used for? 


37. What is the difference between an ASYNCHRONOUS and a SYNCHRONOUS 
process? 


38. What is the purpose of the following verbs: 


PROCURE 


LIBERATE 


(ee PP GE RAPES EPO IPVS PP RSC SS ES PSS tr SRE PEER St: Sf ERR aoe SA SSS ESR SSPE SAEED, 
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40. 


41. 


42. 


43. 


44. 


45. 


46. 


1 CTS i eT 
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Give an example of the use of the EXCEPTIONEVENT task attribute. 


What is the purpose of an INTERRUPT procedure? 


What is the purpose of an EPILOG procedure? 


What is a DOPE vector? 


Give an example of address equation? 


What is the purpose of the OWN phrase in declarations? 


Give an example of the use of ARRAY REFERENCE variables? 


What is a TAG sort? 


52 oR a EE ONG esc: NAAN 
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47. What is the difference between the following dollar card actions: 


SET 


RESET 


POP 


48. What is the purpose of user-defined dollar options? 


be Pee EAL TOTS 
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50. What is the function of the following: 


MASKSEARCH 


ONES 


FIRSTONE 


LISTLOOKUP 


ARRAYSEARCH 
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The following questions relate to the COBOL74 compiler. 


51. What is the difference between an INDEX and a SUBSCRIPT? 


52. What is the advantage of the USAGE BINARY? 
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53. Is the code generated for handling tables is the same as it is in ALGOL? 


Yes No 


54. How are FILE attributes declared? 


55. Is it possible to PERFORM a paragraph in another SECTION? 


56. What is the default entrypoint name for a COBOL74 library? 


57. What can change the default entrypoint name for a COBOL74 library? 
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58. What causes the creation of a new code segment? 


59. 


60. 


61. 


What USAGE types are their and what internal formats do they have? 


‘Where is the operational SIGN carried for different numeric data types? 


What must the compiler generate for arithmetic computations using DISPLAY 


type numeric data items? 
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REVERSE POLISH NOTATION 


Write an equivalent Reverse Polish string for each of the following arithmetic 


expressions: 


1. 


CCC AS CBR C Yo) = CoB eC) bs) oD 


A+B- (Cx (D+E) ) 


(( (A+B) * (C-D))/Z)+Y 


(X+Y)*C/S((A- (B+tC)) *J) 


(A+ (B*C)) /D 


(A/B)+(C#*D)-(CE* ( (A+B) /C)) 
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Write an equivalent arithmetic expression for each of the following Polish strings: 


1. ABt+CD-*X+Y - 


2. AB* C/Et+F - 


3. ABt+C-D*F / 


L. ABCDE+/-* 


A TT 
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BASIC STACK ARCHITECTURE 


4 (7 g F 
._Miore than one process can use the same SEGMENT DICTIONARY. 


(ir 
2.( V1 F Give Hp 
One process may access more than one SEGMENT DICTIONARY. ~” ) 2 ger 
3. 7 / F: J 
A code segment may be referenced by several PCWs, each of which give an 
entry point into the code. 
4. 7 //F: ! 
The _LEXICOGRAPHIC level at which a procedure will execute depends on the 
LEX level of the calling procedure. 
ie) 
5. T iG 
A cedure running at LEX level 3 may declare a procedure which will run 
_at LEX level 3. 

* he STACK VECTOR is an array of data descriptors, each of which describes 
an area of memory allocated as a STACK or SEGMENT DICTIONARY. All 
STACKs and SEGMENT DICTIONARIES, including the MCP are thus described. 

ae id Ee 
The memory address of the STACK VECTOR descriptor depends on the 
setting of the DLO] register. 
8 ui 
he process stack is a record of the current state of execution of a 
ea pp! GOPAUANS A GIVER 2a) t 6 heat ad/t- 
9 TI gun ahd’ 
des hation address. 
10. T/F: 
When the processor attempts to execute a program segment that is not 
resident in memory, an interrupt occurs. 
11. (ay F: Yor ew 
Imost all data addressing is done relative to a DISPLAY register. 
12. Oa 
he LEX level a procedure will run at is determined at compile time. 
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15. Draw the PROCESS stack for the following program as it would appear at the 
place pointed to by the arrow: 


Aw akeny 117 se me tethered tematic EN 


BEGIN 
REAL A,B,C; 


PROCEDURE PRO (A,B,C); 

VALUE B,C; 

REAL A,B,C; 
BEGIN 
INTEGER I,J,K3 
l:=J:=6; 
K:=((1%C) + (B-J)); 
A:s=A+K; 


END OF PROCEDURE PRO; 


% Main line of program. 
A:=7; 

B:=5; 

PRO (A,B,C); 

END OF PROGRAM. 
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DISPLAY REGISTERS 
Wid 


iW, cy / g\v2 
| ~The F register contains an iex. which, when added to the contents of 


BOSR, locates a MSCW. 


os i / F: } 
Th [2] register points to the same location as does BOSR. 
° 3A E) 
. The B[1] register always points to a program SEGMENT DICTIONARY. 
; 4 (7 / F: 
he F register of a central processor points to the last MSCW in the STACK 


pe sie is active on that processor. 


5. T / (F:) 
Tags are used to address DISPLAY registers. 


* GP pone to a program's SEGMENT DICTIONARY. 


a6; 
C [o] points to the MCP's stack. 


8. T/ F: a 
DISPLAY registers indicate Shel Lex level a procedure is running at. 


oo 
ee ae 
Te ean Foe att aec nn nee 


ae 
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9. A procedure is declared at LEX level 3 and called at ,LEX level 5. What 
DISPLAY register points to the MSCW for this procedure? 4}-— 


10. What processor register contains the memory address of the most recently 


built MSCW? = 


1. «iT 7, 
Thé-top of stack registers (A and B) hold the current object code being 


executed. 


12. Segment descriptors contained in the users program SEGMENT DICTIONARY 
are addressed relative to what processor register? 


Det 


4 


13. vy! F: 
ce An instruction is referenced by [SDI:PWI:PSI. 
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WORD FORMATS 
é Cat F: 
(An RCW contains a return point in a code sequence. 


A £36 of 8 indicates a PCW. 


aa @ won 
A M descriptor is always indexed. 


ns F 
Cr e choice of dimensions for an array can affect the number of data 
descriptors in dope vectors. 


el 


5. ie r/ i 
- he TOSCW indirectly contains the S and F register settings for an inactive 
stack. 


T / F: 
MSCW is generated when a procedure is entered. 


? 7.(1)1 F: 7 
he overlay bit indicates if the data area has been overlayed. >) yA 
oh Fees aon 
oC a aa 
ata arrays are not allocated in memory until an item in the array is 
accessed. 
9, T IVF: 


It 4 eee for the programmer to initialize stack data items to zero, 
otherwise the item will contain any miscellaneous value. 


10. In a MSCW, the displacement field is relative to which processor register? 
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11. Given the following RCW where will the procedure exit to? 


3 500621 894007 
SDLL HO Mo? 


SD| 

PW | 

PSI 

LL ) 

cS | (Normal or Control) 


12. A process has just caused the following 2 words to be placed,on 


stack 15E. si 
| 3 00gB6D AdBH2C : po c f 
Vig 3 1BEO4A 10Cp22 MoO | 
ye 


iS & 


ia 3 B. Is the PCW for the procedure we are entering in this stack? 


= A. What is the stack number of the procedure we are entering? 
t 
VU iE 


oy 


C. What Lex Level are we going to? 5 


D. What is the LEX level of the procedure we came from? 


a 


E. What is the See when we left the procedure? 


13. In a data descriptor, a SIZEF of 7 means what? 


Burroughs Company 
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14. The first word of a process stack contains either: 


al 


15. T at 
RW makes it pee to address memory locations i are not within 
any stack. te MELU Aa iA sta 4 Cavaes 
16. ue d ‘e 


s and RCWs always occur in pairs. 


oe 
hen exiting a procedure, if the SDLL bit (bit 13) of the RCW is one, D[1] 
is selected as the SDI base otherwise D[O] is selected. 


18. When are the fields of a MSCW inserted and what are their purposes? 


shrek 
pacer (esere we) 


2 
Ue Wank pshors t an u 2 nite yo ; 
_hisbrry ~ cov at (pclemor to fe pores MS CU) om tus Ss teecle 
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19. Given the following RCW, where will the procedure exit to? 


3 000401 80A003 


MCP/USER Vine 
SDI 2 = 
PWI \3 
PS | a 
LL 2. 
cs é norm (Normal or Control) 


$2 9 CTR SAS PYSTASSTTSETESSSRI 8 ERSSOVESRSSRSS PPPS MC SP SPE EPS SS PPPS TE CS SO SS SR TEASPOON SHAD oi ans eat hie AAS Ae NA oY ETE 
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PROCESSOR OPERATORS 


1. (‘TDi F: 


The’ TOSCW is built by the MVST (move to stack) machine instruction. 


2: °F &: 4 

A code syllable is 4 bits long. 
3. T i(F: 

An D instruction adds the top of stack to a word in memory. 
4. (T) F: 


egment O of a code file is is used to contain information used by the MCP 
necessary for task initiation. 


5. The MVST machine instruction causes the central processor to access a data 
descriptor at D[O] + 2. To what does te eet descriptor point? 


cf 
fe 
6. Generate machine code or assembly language for: 


em: Oe ae a ea 
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7. What is the missing statement in: 


BEGIN 
REAL X,Y,Z; 


CODE 1S: 1003 1004 B204 81 82 5002 B8 (NON-EMODE) 


1003 1004 B204 81 82 F62002 (EMODE) 


8. When executing a MVST where do we get the following: 


A. 


D. 


E. 


Stack to go to. __ Tose Wl 
BOSR of new stack. ___sho-cle roc Wt 
LOSR. __ aedeaae eer 7 


S$ register. oc g wel ud 


DISPLAY reg settings. _ (gu NM MSCW 
AEC 
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9. A program aborted at: 


ADDRE 
01843 
113E3 
113F5 
113FB 
113FE 
11401 
11404 
11DC4 
13DB9 
13EF6 
14210 


16ALA 


tat ane St erie ESR AERA FENN NOE eS 7 SS PEEPS RE PA PE PP RECESS RSET PQSETSO SANE TORE RTE EP SOAP 


2B:26D:3 


Just before the program aborted : 


D[1] was set to 113D7 


D[2] was set to 11DBF 


The contents of several 


SS 

0 E53100 
5 080000 
3 800001 
5 880008 
3 800000 
800003 
000000 


800001 


3BA610 


3 

3 

5 

3 41EDBD 
3 

3 CB3453 
3 


B20380 


6527B0 
2407EB 
122FA] 
7OCK4I 
F1420E 
O13FFA 
0005C3 
O11DA4 
95BE60 
03B810 
8B0985 
95BC95 


memory locations are 


O 1EF50B OI1FA31 O 
3 800000 F1552 3 
5 08001B A4O870 3 
3 000001 O006A1 3 
3 800002 BI5FE2 3 
3 800028 A13C8A 3 
5 080001 7403B2 3 
0 000000 000213 0O 
OLB99A 2EO1AO0 3 
075005 AD7JOOA 3 


BFFFFF FFFFFF 3 


Ww Wo Ww WwW 


B9AE60 2EB208 3 


Determine why the program aborted. 


given below: 


DABDAB 
000000 
800002 
800000 
800001 
800001 
000000 
628000 
218B20 
B8A262 
5695A3 


ABA3A3 


DABDAB 
0005C2 
2215C6 
C16A48 
315F9B 
115CF1 
OOO6A4 
040000 
O29A17 
40B3B3 
9B6C30 


223F 20 
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aN 
i? 
f 
a et 
bn* 
( eA 
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10. Given the following partial program and code: 


Write the ALGOL statements which compiled into the following code: 
$ SET LIST STACK CODE 

BEGIN 

REAL A,B,C,D; 


PROCEDURE PRO (X,Y,D); 
VALUE X,D; 
REAL X,Y,D; 
BEGIN 
INTEGER I, 11; 
LABEL L; 


FFB2057006B9 877005B83004 B2058CA10006 7003AC300630 023005300480 
1004808280B8 A3BOBOB4A220 OOFFFFFFFFFF 


Ls 
END OF PROCEDURE PRO; 


FFB2035002B8 B2045003B8B1 5004B8B20450 O5B8AE500610 02B203805003 
AF 1004ABA3BO BOBOBOBFFFFF OO0020060E004 B4A22000F FFF 


END OF PROGRAM. 
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